Seltsames Problem mit TNMUdp (FastNet)

**Urba**

Hallo Leute,

Eigentlich wollte ich nur Nachrichten zwischen 2 Programmen austauschen, wobei das eine einen festen Port belegt und das andere darauf zugreift. Also ich habe 2 Programme mit jeweils einer TNMUdp-Komponente und einem Label. Hinzu verwende ich folgenden Code :

Programm 1 (nicht feste IP) - Wenn der Button geklickt wird, dann wird der Text gesendet.

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

var 

  TmpStr: String; 

  buffer:array[0..25]of Char; 

  I:Integer; 

Begin

  Client.ReportLevel := Status_Basic;

  Client.RemoteHost := '192.168.0.3';  

  Client.RemotePort := 1024;  // fester Port des anderen Programms

  TmpStr := 'Hallo';

  for I:= 1 to Length(TMPStr) do buffer[i-1]:=tmpstr[i];

  Client.SendBuffer(buffer,Length(TmpStr));

end;

procedure TForm1.ClientDataReceived(Sender: TComponent;

  NumberBytes: Integer; FromIP: String; Port: Integer);

var Buffer : array [0..3000] of Char;

    I      : Integer;

begin

  for I := 0 to High(Buffer) do Buffer[I] := Chr(0);

  Client.ReadBuffer(Buffer,NumberBytes);

  Label1.Caption := '';

  for I := 0 to High(Buffer) do Label1.Caption := Label1.Caption + Buffer[I];

end;

Programm2 (mit festem Port)

markieren

Code:

			procedure TForm1.internDataReceived(Sender: TComponent;

  NumberBytes: Integer; FromIP: String; Port: Integer);

var I   : Integer;

begin

  Form1.Caption := '';

  Form1.Caption := 'Message kam von : ' + Client_IP + ':' + IntToStr(Client_Port);

  for I := 0 to High(Buf) do Buf := Chr(0);

  intern.ReadBuffer(Buf,NumberBytes);

  Label1.Caption := '';

  Label1.Caption := 'String von Client : ';

  for I := 0 to High(Buf) do Label1.Caption := Label1.Caption + Buf[I];

  intern.ReportLevel := Status_Basic;

  intern.RemoteHost  := Client_IP;

  intern.RemotePort  := Client_Port;

  intern.SendBuffer(Buf,Length(Buf));

end;

Kann mir jemand sagen wieso bei Programm nur ein leerer String ankommt? Es komm nämlich eine solcher leerer String an, aber eben ohne Inhalt. Kann den Code mal jemand testen und mir vielleicht Bescheid sagen? Danke

Urba

Seltsames Problem mit TNMUdp (FastNet)

Seltsames Problem mit TNMUdp (FastNet)

Forumregeln