| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

отправка принятых данных =)) (TClientSocket & TServerSocket)

ZzZzZzZ ©   (2007-11-25 05:22:00) 

procedure RecivedPacket(Socket: TCustomWinSocket);
var
 iLen: Integer;
 Bfr: Pointer;
 a: integer;
 tmp: PChar;
begin
 iLen := Socket.ReceiveLength - 1;
 if (iLen > 0) then
 begin
   GetMem(Bfr, iLen);
   Socket.ReceiveBuf(Bfr^, iLen);
   packet := Bfr;

   for a := 0 to iLen do//Length(packet) do
       Form1.Memo2.Text := Form1.Memo2.Text + IntToHex(packet[a], 2) + ' ';

   Form1.ToServer.Socket.SendBuf(Bfr, iLen+1);
   FreeMem(Bfr);
 end;
end;
Собственно вот процедура TClientSocket

procedure TForm1.ToClientClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
begin
RecivedPacket(Socket);
end;

Вопрос:Посылаются не те данные, что пришли. В чем я не прав?

---

Slym   (2007-11-26 04:33:00) [1]

procedure TForm1.ToClientClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 Str,StrHex:string;
 i:integer;
begin
 Str:=Socket.ReceiveText;
 StrHex:='';
 for i:=0 to Length(Str) do
   StrHex:=StrHex+IntToHex(byte(Str[i]), 2)+' ';
 Form1.Memo2.Text:=StrHex;
end;

---

Slym   (2007-11-26 04:33:00) [2]

Slym ©   (26.11.07 4:33) [2]
for i:=0 to Length(Str) do
for i:= 1to Length(Str) do

---

Сергей М.   (2007-11-25 12:58:00) [3]

> В чем я не прав?

Нет разымкнования параметра Bfr.

И вообще - код в топку.

---

Наверх