Передача файлов по сокетам

[саша40]

Привет. Пишу чат использовав обычные сокеты. Решил добавить возможность передачи файлов, но как принять этот файл? В общем вот код:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Client2.Address='' then exit;
m:=Fil;
if OpenDialog1.Execute=true then
begin
Stream.LoadFromFile(OpenDialog1.FileName);  
Client3.Socket.SendText('Fil');
Client2.Socket.SendStream(stream); 
Stream.Clear;
TrayIcon.ShowBalloonHint('ForterGo','Передан файл: ' + OpenDialog1.FileName,bitInfo,10);
end;
end;

procedure TForm1.Server2ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if mode='Принять' then
...//бла-бла-бла
end;

Отправить я смог, а вот как принять этот поток, не знаю ,может подскажите кодом?

[xoodoo]

> Отправить я смог

Ты и отправить-то правильно не смог, о каком уж приеме при этом может идти речь)

Client3.Socket.SendText('Fil'); // не факт что текст будет передан
Client2.Socket.SendStream(stream);
Stream.Clear; // не факт что стрим полностью передан, а ты его уже чистишь

[саша40]

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

> Отправить я смог

Ты и отправить-то правильно не смог, о каком уж приеме при этом может идти речь)

Client3.Socket.SendText('Fil'); // не факт что текст будет передан
Client2.Socket.SendStream(stream);
Stream.Clear; // не факт что стрим полностью передан, а ты его уже чистишь

а мне надо его принять, но каким кодом?

[Slym]

Протокол общения клиентов на бумажке напиши сначала...
SendText('Fil'); - это не протокол это фигня...
например протокол (понимай диалог)

с1 - выбор файла для отправки
c1: <SendFileRequest id="1" name="Smile.gif" size="8096"/>
с2 - появление диалога о сохранении файла
c2: <SendFileConfirm id="1" chunk="1024"/>
c1: <SendFileChunk id="1" chunkid="1" chunksize="1024">Data</SendFileData>
c2: <SendFileChunkConfirm id="1" chunkid="1"/>
с1: <SendMsg id="1235">Лови мой файл</SendMsg>
c1: <SendFileChunk id="1" chunkid="2" chunksize="1024">Data</SendFileData>
c2: <SendMsgConfirm id="1235"/>
c2: <SendFileChunkConfirm id="1" chunkid="2"/>

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

[xoodoo]

мне надо его принять, но каким кодом?

Нельзя никаким кодом принять то что достоверно не передано.

[саша40]

блин да передан паток, а мне надо его принять на серваке.

[xoodoo]

блин да передан

Не передан.
Ты его кастрировал в момент передачи вызовом Clear.

[саша40]

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

Не передан.
Ты его кастрировал в момент передачи вызовом Clear.

Тогда как узнать передан паток или нет?

[xoodoo]

После вызова SendStream не трогай переданный на отправку поток - не очищай его, не уничтожай и вообще более нигде этот поток не используй.

[саша40]

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

После вызова SendStream не трогай переданный на отправку поток - не очищай его, не уничтожай и вообще более нигде этот поток не используй.

понятно. Ну а если я уберу очистку потока, как его потом принять?