|
#1
|
|||
|
|||
Сохранение на FTP
Суть куска программы:
Содержимое 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; Вопрос. Можно ли сделать сохранение сразу на сервак, без локального файла? |