Dziwne rzeczy:(

2002-03-25 11:42
ReNe
0

Mam ten przykład kożystaniea z UDP jednak nie umie sobie poradzić z tym problemem jaki tam jest.
Jak Server odbiera Stream do Bufora (Buff: Array[0..MAX_PATH] of Char) to jest tak np:

jak wyśle samo "y" to jest ok i srever odbiera i pisze "y" ale jak wyśle
"yy" to odebrane jest "yy8–",
jak "yyy" to "yyy8-"
jak "yyyy" to "yyyy-"
jak "yyyyy" to znowu dobrze
a jak "yyyyyy" to "yyyyyy,ţ"

i potem znowu coraz mniej jest tych dziwnych znaczków, aż ich zabraknie i znowy 3 więcej :))

CO TO MOŻE BYĆ?

(może to jest trudno zrozumieć ale tak sie dzieje, najlepiej miec ten przykład (jest tam pod postem "Jak korzystać z tego UDP?"))

Pozostało 580 znaków

2002-03-25 17:35
mperior
0

Też takmam ale zrobiłem tak, że na końcu każdej wysyłanej wiadomości dodaje np. dwa znaki $| i potem jak przekonwertuje w odbiorze na stringa to usuwam wszystko co jest od $| --Delphi 6
Pozdrowienia,
Imperior

Pozostało 580 znaków

2002-03-25 18:16
ReNe
0

Może to lenistwo (no bo jest :)))) ale napisz mi jak. OKI?

Pozostało 580 znaków

2002-03-25 19:35
Imperior
0

ReNe w dniu 25.3.2002 18:16 napisal:
Może to lenistwo (no bo jest :)))) ale napisz mi jak. OKI?

procedure TForm1.Button1Click(Sender: TObject);
begin
UDPClient.Send(edit1.Text+'$|');
end;

procedure TForm1.UDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
s: array [0..501] of char;
msg: string;
begin
AData.Read(s,502);
msg:=s;
Delete(msg,Pos('$|',msg),Length(msg)-Pos('$|',msg)+1);
edit2.Text:=msg;
end;--Delphi 6
Pozdrowienia,
Imperior

Pozostało 580 znaków

Liczba odpowiedzi na stronę

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