Форум: "Сети";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];
Вниз
отправка принятых данных =)) (TClientSocket & TServerSocket) Найти похожие ветки
← →
ZzZzZzZ (2007-11-25 05:22) [0]
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;
Вопрос: Посылаются не те данные, что пришли. В чем я не прав?
← →
Сергей М. © (2007-11-25 12:58) [1]
> В чем я не прав?
Нет разымкнования параметра Bfr.
И вообще - код в топку.
← →
Slym © (2007-11-26 04:33) [2]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) [3]Slym © (26.11.07 4:33) [2]
for i:=0 to Length(Str) do
for i:=1 to Length(Str) do
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c