Скачать: CL | DM;

Отправить файл   Найти похожие ветки 

← →
Deos   (2005-01-07 01:07) [0]

Народа, кто знает, как с помощью ftpclient"а из Indy отправить файл. Коннект уже установлен.

---

← →
Eraser ©   (2005-01-07 01:08) [1]

Upload?

---

← →
Deos   (2005-01-07 01:19) [2]

нет!

---

← →
Eraser ©   (2005-01-07 01:25) [3]

Ну не помню тогда ;-)

---

← →
Deos   (2005-01-07 02:12) [4]

Там есть put()
Но как его юзать я не знаю. Указываю имя файла, а он вылетает с ошибкой!

---

← →
Erik1 ©   (2005-01-07 12:15) [5]

Это прием:
procedure TAutoUpdate.LoadInf;
var
 Stream: TMemoryStream;
 StreamSize, ByteSize: Integer;
 AFiles: TStrings;
begin
 TransferType := ftBinary;
 AFiles := TStringList.Create;
 try
   List(AFiles, InfFileName, True);
   if (AFiles.Count < 1) or (DirectoryListing[0].FileName <> InfFileName) then
     raise AutoUpdateException.Create("Inf file not found: " + InfFileName);

   FBytesToTransfer := DirectoryListing[0].Size;
 finally
   AFiles.Free;
 end;

 ByteSize := FBytesToTransfer;
 Stream := TMemoryStream.Create;
 try
   Get(InfFileName, Stream);
   StreamSize := Stream.Size;
   Stream.Position := 0;
   fInfList.LoadFromStream(Stream);
 finally
   Stream.Free;
 end;

 if (StreamSize <> ByteSize) or ReadLnTimedOut or (StreamSize < 5) then
   raise AutoUpdateException.Create("Error load " + InfFileName + " size:" +
     IntToStr(StreamSize) +
     " Original size: " + IntToStr(ByteSize));

 FBytesToTransfer := Size(GetInf(keyName));
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c