[Delphi5] TserverSocket - blad przy odczycie bufora - Help

0

witam
nie wiem co robie nie tak, ale wywala mi blad :(
popatrzcie i powiedzcie gdzie tkwi problem -doslownie blagam :D

oto treść błędu
"Żądanie wysyłana lub odebrania danych zostało zablokowane, ponieważ nie jest podłączone i (podczas wysyłania przez to gniazdo datagramu przy użyciu wywołania "wyślij do" nie podano adresu (10057), on API 'recv'"

dodam, ze:
strona server:
server.active:=true;
port ustawiony jest poprawnie;

strona client:
client.active:=true;
port i IP podane dokładnie

vo ciekawsze gdy w tym zdarzeniu napisze tylko linijke:

view.lines.add(Client Read data');

to jest wszystko ok, nastepuje podlaczenie, ale ja po prostu chce wiedziec, jakie te dane sa odbierane i dlatego przepisuje to do bufora array of byte i to nie chce mi dzialac ... dodam, ze dalem duzy bufor o wielkosci $FFFF (64kb) wiec nie ma mozliwosci aby sie przepelnial, bo clienci tez maja ustawiony max wielkosc paczki do wyslania.

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  LenBufor:=Server.Socket.ReceiveLength;
  Server.Socket.ReceiveBuf(BufLan,LenBufor);
  bufor:='';
  for x:=0 to LenBufor-1 do bufor:=bufor+inttohex(BufLan[x],2)+' ';
  View.Lines.Add(bufor);
end;

JohnCTN

0

sproboj tak
Server.Socket.ReceiveBuf(BufLan,sizeof(buflan));

1 użytkowników online, w tym zalogowanych: 0, gości: 1