Daily Archives: 03.09.2016

Delphi. TObjectList. Какой юнит подключать?

Posted on 03.09.2016 by Stanislav_Panteleev

Удобная вещь! Но постоянно забываю какой юнит подключать к этому классу. Уже раз 5 тыркался по Интернету. Пора изменить эту ситуацию. Так вот, запомни, Станислав, теперь это есть на твоём блоге))) Для работы с TObjectList нужно подключить юнит

Contnrs

Contnrs

Более … Continue reading →

Posted in Delphi | Comments Off

Delphi. Indy. Трабл с кодировкой имен файлов при загрузке на FTP сервер

Posted on 03.09.2016 by Stanislav_Panteleev

Пользуюсь INDY. При загрузке файлов на FTP сервер методом Put столкнулся вот с этим Поискав немного в сети, понял, что это какой трабл в Инди. Временное решение, в отсутствие времени – транслит.

function TForm2.Translit(s: string): string;
const
rus: string = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';
lat: array[1..33] of string = ('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y', 'k',
'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f', 'h', 'ts', 'ch', 'sh', 'shch',
'''', 'y', '''', 'e', 'yu', 'ya');
var
p, i, l: integer;
begin
s:=widelowercase(s);
Result := '';
l := Length(s);
for i := 1 to l do
begin
p := Pos(s[i], rus);
if p<1 then Result := Result + s[i] else Result := Result + lat[p];
end;
end;


procedure TForm2.bPutFileClick(Sender: TObject);
var DestName:string;
begin


idFTP.MakeDir('/myfiles');
IdFTP.ChangeDir('/myfiles');



if OpenDialog.Execute then
 begin
 FFileToPut:=OpenDialog.FileName;

 DestName:=Translit(ExtractFileName(OpenDialog.FileName));

 idFTP.Put(OpenDialog.FileName,DestName);
// idFTP.Disconnect;

 end;


end;

function TForm2.Translit(s: string): string;

const

rus: string = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';

lat: array[1..33] of string = ('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y', 'k',

'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f', 'h', 'ts', 'ch', 'sh', 'shch',

'''', 'y', '''', 'e', 'yu', 'ya');

var

p, i, l: integer;

begin

s:=widelowercase(s);

Result := '';

l := Length(s);

for i := 1 to l do

begin

p := Pos(s[i], rus);

if p<1 then Result := Result + s[i] else Result := Result + lat[p];

end;

procedure TForm2.bPutFileClick(Sender: TObject);

var DestName:string;

begin

idFTP.MakeDir('/myfiles');

IdFTP.ChangeDir('/myfiles');

if OpenDialog.Execute then

begin

FFileToPut:=OpenDialog.FileName;

DestName:=Translit(ExtractFileName(OpenDialog.FileName));

idFTP.Put(OpenDialog.FileName,DestName);

// idFTP.Disconnect;

end;

После чего получаем Не так идеально, … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. UniGUI. Как удаленно, из своей программы на клиентской машине запустить EXE файл на серверной машине?

Posted on 03.09.2016 by Stanislav_Panteleev

Вводные В предыдущем посте мы уже научились через клиентский браузер запускать EXE приложение на серверной машине. В данном посте создадим свое клиентское EXE приложение. Будем отправлять POST запрос на серверную машину с командой запустить EXE приложение, например блокнот на серверной … Continue reading →

Posted in Delphi, UniGui | Comments Off

Daily Archives: 03.09.2016

Delphi. TObjectList. Какой юнит подключать?

Delphi. Indy. Трабл с кодировкой имен файлов при загрузке на FTP сервер

Delphi. UniGUI. Как удаленно, из своей программы на клиентской машине запустить EXE файл на серверной машине?

MY PROJECTS

Recent Posts

Categories