Суть куска программы:
Содержимое memo сохранить в файл, файл залить на ftp, удалить локальный файл.
код
Код:
procedure Form.sendClick(Sender: TObject);
begin
begin
if idftp1.Connected then
begin
idftp1.ChangeDir('as');
memo1.Lines.SaveToFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ; //сохранили локально
if FileExists(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) then //проверили наличие
begin
idftp1.Put(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ; //отправили
deleteFile(TPath.Combine(TPath.GetSharedDocumentsPath, 'test.txt')) ; //грохнули
memo1.Lines.Clear;
idftp1.Disconnect;
end;
end;
end;
end;
Вопрос.
Можно ли сделать сохранение сразу на сервак, без локального файла?