Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отправить файл [D7, WinXP]

Deos © (2005-01-07 01:07:00)
Народа, кто знает, как с помощью ftpclient'а из Indy отправить файл. Коннект уже установлен.

Erik1 (2005-01-07 12:15:00) [1]
Это прием:
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;

Deos (2005-01-07 02:12:00) [2]
Там есть put()
Но как его юзать я не знаю. Указываю имя файла, а он вылетает с ошибкой!

Eraser (2005-01-07 01:25:00) [3]
Ну не помню тогда ;-)

Deos (2005-01-07 01:19:00) [4]
нет!

Eraser (2005-01-07 01:08:00) [5]
Upload?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »