Отправка файла Stream на FTP - Работа с сетью в Delphi

Maxs · 24.10.2009, 22:34

Немогу понять почему он отправляется пустой. На сервере появляется, имя соответствует Edit4. Нужно последовательно записать строки в Stream
var
aStream: TMemoryStrem;
...
aStream.Write(Edit3.text[1], Length(Edit3.text));
aStream.Write(Edit1.text[1], Length(Edit1.text));
aStream.Write(Edit2.text[1], Length(Edit2.text));
aStream.Write(Memo1.text[1], Length(Memo1.text));
IdFTP1.Put(aStream, Edit4.text+'.txt', false);

t0per · 04.11.2009, 01:34

Stream
var
aStream: TMemoryStrem;
...
aStream.Write(Edit3.text[1], Length(Edit3.text));
aStream.Write(Edit1.text[1], Length(Edit1.text));
aStream.Write(Edit2.text[1], Length(Edit2.text));
aStream.Write(Memo1.text[1], Length(Memo1.text));

astream.position:=0; //указать начальный бит

IdFTP1.Put(aStream, Edit4.text+'.txt', false);

24.10.2009, 22:34	#1
Maxs Заблокирован Регистрация: 06.04.2009 Сообщений: 130	Отправка файла Stream на FTP Немогу понять почему он отправляется пустой. На сервере появляется, имя соответствует Edit4. Нужно последовательно записать строки в Stream var aStream: TMemoryStrem; ... aStream.Write(Edit3.text[1], Length(Edit3.text)); aStream.Write(Edit1.text[1], Length(Edit1.text)); aStream.Write(Edit2.text[1], Length(Edit2.text)); aStream.Write(Memo1.text[1], Length(Memo1.text)); IdFTP1.Put(aStream, Edit4.text+'.txt', false);

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Upload файла на ftp-сервер методом drag and drop	olchick	Работа с сетью в Delphi	1	13.07.2009 20:34
Variant to Stream & Variant from Stream	Oreol	Общие вопросы Delphi	1	24.03.2009 13:14
копирование обновленного файла с ftp на сервер	dirrer	Работа с сетью в Delphi	11	16.03.2009 17:07
Передача файла на FTP	Mitron	Работа с сетью в Delphi	18	02.12.2008 14:17
Минимальное приложение для загрузки файла на FTP	Gambler	Работа с сетью в Delphi	6	29.01.2008 22:58

04.11.2009, 01:34	#2
t0per Новичок Джуниор Регистрация: 10.10.2009 Сообщений: 1	Stream var aStream: TMemoryStrem; ... aStream.Write(Edit3.text[1], Length(Edit3.text)); aStream.Write(Edit1.text[1], Length(Edit1.text)); aStream.Write(Edit2.text[1], Length(Edit2.text)); aStream.Write(Memo1.text[1], Length(Memo1.text)); astream.position:=0; //указать начальный бит IdFTP1.Put(aStream, Edit4.text+'.txt', false);