Daily Archives: 28.10.2016

Delphi. Как добавить параметры к имени файла а потом прочитать их?

Posted on 28.10.2016 by Stanislav_Panteleev

Данный код к имени файла, например Filename.exe добавляет Filename{param=value}.exe В дальнейшем это можно будет корректно прочитать регулярными выражениями, при условии, что такая пара одна в имени файла. Добавление параметра

// {Adding Params to FileName, so FileName.exe will be FileName{Param=Value}.exe }
class function TCreateUniqueName.AddParamAndValueToName(FileName: string; Param:string; Value:string ): string;

var
    Extension:string;
    SplittedString: TArray<String>;
    SomeStringToChange:string;
    i: Integer;

    FileNameTemp:string;

begin

//Checks
if FileName='' then Exit;



//1--------- First of all we need to extract extension if it is
SplittedString:=FileName.Split(['.']);

    //we suppose that extensions are symbols after last '.', so...

    // if FileName has extension like 'SomeFileName.exe'

    if Length(SplittedString)>1 //2 and more, for example somename.ext [somename,ext]
    then

begin
    Extension:=SplittedString[ High(SplittedString)  ];


//ShowMessage(Extension); // for test

//2----------Now lets change previous massive Element if it is

      SomeStringToChange:=SplittedString[ High(SplittedString)-1  ];


      //Adding Param And Value
      SomeStringToChange:=SomeStringToChange+'{'+Param+'='+Value+'}';
      SplittedString[ High(SplittedString)-1  ]:=SomeStringToChange;

//3-------Now our name is Unique we can join it back


                for i := Low(SplittedString) to High(SplittedString)-1 do
                Result:=Result+SplittedString[i]+'.';

                //At last adding Extension
                Result:=Result+Extension;


end else

     // if FileName without Extension like 'SomeFileName'
     if Length(SplittedString)=1 then

     begin

     FileNameTemp:=FileName;
     FileNameTemp:=FileNameTemp+'{'+Param+'='+Value+'}';

      Result:=FileNameTemp;
     end;

//ShowMessage(Result); //for test
end;

// {Adding Params to FileName, so FileName.exe will be FileName{Param=Value}.exe }

class function TCreateUniqueName.AddParamAndValueToName(FileName: string; Param:string; Value:string ): string;

var

Extension:string;

SplittedString: TArray<String>;

SomeStringToChange:string;

i: Integer;

FileNameTemp:string;

begin

//Checks

if FileName='' then Exit;

//1--------- First of all we need to extract extension if it is

SplittedString:=FileName.Split(['.']);

//we suppose that extensions are symbols after last '.', so...

// if FileName has extension like 'SomeFileName.exe'

if Length(SplittedString)>1 //2 and more, for example somename.ext [somename,ext]

then

begin

Extension:=SplittedString[ High(SplittedString) ];

//ShowMessage(Extension); // for test

//2----------Now lets change previous massive Element if it is

SomeStringToChange:=SplittedString[ High(SplittedString)-1 ];

//Adding Param And Value

SomeStringToChange:=SomeStringToChange+'{'+Param+'='+Value+'}';

SplittedString[ High(SplittedString)-1 ]:=SomeStringToChange;

//3-------Now our name is Unique we can join it back

for i := Low(SplittedString) to High(SplittedString)-1 do

Result:=Result+SplittedString[i]+'.';

//At last adding Extension

Result:=Result+Extension;

end else

// if FileName without Extension like 'SomeFileName'

if Length(SplittedString)=1 then

begin

FileNameTemp:=FileName;

FileNameTemp:=FileNameTemp+'{'+Param+'='+Value+'}';

Result:=FileNameTemp;

end;

//ShowMessage(Result); //for test

end;

Как прочитать параметры? Данный код будет искать значение параметра из … Continue reading →

Posted in Delphi | Comments Off

Delphi. Как разделить файл на части (chunks)?

Posted on 28.10.2016 by Stanislav_Panteleev

Довольно простая процедура, которая делит файл на части и складывает их рядом с EXE следующим образом Для чтения файла использую TFileStream из которого потом выдергиваю чанки в TMemoryStream методом CopyFrom. TFileStream – чтобы работать с большими файлами, на которых MemoryStream … Continue reading →

Posted in Delphi | Comments Off

Daily Archives: 28.10.2016

Delphi. Как добавить параметры к имени файла а потом прочитать их?

Delphi. Как разделить файл на части (chunks)?

MY PROJECTS

Recent Posts

Categories