Отправить файл

← →
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()
Но как его юзать я не знаю. Указываю имя файла, а он вылетает с ошибкой!

Это прием:
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;

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