Скачать: CL | DM;

Помогите разобраться с сокетами   Найти похожие ветки 

← →
WhiteWolf   (2007-03-23 09:44) [0]

Помогите найти ошибку
{Отправка файла через сокет}
procedure SendFileBySocket(filename: string);
var srcfile: TFileStream; begin
srcfile := TFileStream.Create(filename,fmOpenRead);
ServerSocket1.Socket.Connections[0].SendStream(srcfile);
srcfile.Free; end;

{Прием файла через сокет}
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket); var l: Integer; buf: PChar; src: TFileStream; begin
l := Socket.ReceiveLength;
GetMem(buf,l+1);
Socket.ReceiveBuf(buf,l);
src := TFileStream.Create("myfile.tmp",fmOpenReadWrite);
src.Seek(0,soFromEnd);
src.WriteBuffer(buf,l);
src.Free;
FreeMem(buf);
end;

---

← →
Сергей М. ©   (2007-03-23 10:23) [1]

procedure SendFileBySocket(filename: string);
var
 srcfile: TStream;
begin
 srcfile := TFileStream.Create(filename,fmOpenRead);
 ServerSocket1.Socket.Connections[0].SendStream(srcfile);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
 l: Integer;
 buf: PChar;
 src: TStream;
begin
 l := Socket.ReceiveLength;
 if i = 0 then Exit;
 GetMem(buf,l);
 try
   l := Socket.ReceiveBuf(buf^,l);
   if l = 0 then Exit;
   src := TFileStream.Create("myfile.tmp",fmOpenReadWrite);
   try
     src.Seek(0,soFromEnd);
     src.WriteBuffer(buf^,l);
   finally
     src.Free;
   end;
 finally
   FreeMem(buf);
 end;
end;

---

← →
WhiteWolf   (2007-03-23 11:06) [2]

Всёравно не вига не передаёт

---

← →
Сергей М. ©   (2007-03-23 11:09) [3]

А у меня работает.
Что я неправильно делаю ?)

---

← →
Alex2000   (2007-03-23 11:47) [4]

Сходи по ссылке WWW.Delphi-secret.narod.ru/Projects/ServClient.rar .Там класный исходняк .

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c