Текущий архив: 2005.01.23;
Скачать: 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 вся ветка
Текущий архив: 2005.01.23;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.025 c
