IdTCPClient+FileListBox

[hysek]

Подскажите пожалуйста,как вытянуть файл из компонента FileListBox и передать серверу по сети через IdTCPClient

[Valio]

Открыть фаил как файловый поток и передать его сокету.

[hysek]

а что пишется и куда в сервере,что бы принять файл от клиента?
понимаю что надо ReadStream,но куда и как правильно записать??

[Valio]

Нужно создать (Buf например) переменую TFileStream с привязкой к файлу, куда будут сливаться байты от клиента. Затем нужно принять от клиента размер этого файла (Size например), чтоб правильно считать. А потом IOHandler.ReadStream(Buf, Size). Убиваем Buf и мы имеем принятый фаил.

Какая версия Инди и Делфи?

[hysek]

примерно я так и понял пошарившись по форуму,но к себе подстроить не могу(
делфи 7, indy - 9

[Valio]

И что получалось в итоге? Покажи код клиента и сервера на отправку.

[hysek]

клиент отправляет

var
 f:Boolean;
  Potok:TMemoryStream;
  FileName:string;
procedure TForm5.btn5Click(Sender: TObject);
begin
if IdTCPClient1.Connected=true then
begin
try
 Potok.LoadFromFile(FileName);
 IdTCPClient1.WriteInteger(Potok.Size,true);
 IdTCPClient1.WriteStream(potok,true,false,potok.Size);
 Potok.Clear;
 ShowMessage('Отправлено');
finally
f:=true;
end;
end;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
potok:=TMemoryStream.Create;
FileName:=fllst1.FileName;
end;

сервер принимает

procedure TForm1.FormCreate(Sender: TObject);
begin
FileName:=fllst1.FileName;
 Potok:=TMemoryStream.Create;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
 begin
  size:= AThread.Connection.ReadInteger(true);
  AThread.Connection.ReadStream(potok,size,false);
  potok.SaveToFile(FileName);
  Potok.Clear;
  ShowMessage('Принято');
end;

[hysek]

выводит ошибку
Cannot open file "". Системе не удается найти указанный путь.

[Valio]

Сообщение от hysek

выводит ошибку
Cannot open file "". Системе не удается найти указанный путь.

Хм... а может действительно путь к файлу битый? не видно где он задаётся...

[hysek]

а если так

procedure TForm5.btn5Click(Sender: TObject);
var fs:TFileStream;
begin
 fs:=TFileStream.Create(fllst1.FileName,fmOpenWrite);
  IdTCPClient1.WriteStream(fs);
 fs.Free;
end;

то что написать на сервере для получения?