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