TCP/UDP Proxy

[endeffects]

Hallo,

ich möchte mir mit hilfe der indy komponenten einen proxy server basteln
der mit udp und tcp umgehen kann. momentan häng ich allerdings noch an der udp integration.

kurz zum projekt:

der proxy server nimmt anfragen von verschiedenen ip adressen entgegen
und soll diese dann an einen master server übergeben. dort werden die
anfragen ausgewertet und zurück an den proxy gesendet.
der wiederum sendet die antworten an die jeweiligen clients zurück.

soweit so gut, nun hab ich mir gedacht benutz ich einfach TIdUDPServer und TIdUDPClient:

Delphi-Quellcode:

procedure TUDPMainForm.FormCreate(Sender: TObject);
begin
  HostName.Caption := UDPServer.LocalName;
  HostAddress.Caption := GStack.LocalAddress;
  Port.Caption := IntToStr(UDPServer.DefaultPort);
  BufferSize.Caption := IntToStr(UDPServer.BufferSize);
  UDPServer.Active := True;
end;

procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
  DataStringStream: TStringStream; 
  ReceivedString: String;
begin
  DataStringStream := TStringStream.Create('');
  try
    ReceivedString:= '';
    DataStringStream.CopyFrom(AData, AData.Size);
    ReceivedString := DataStringStream.DataString;

    Relay(ReceivedString, Abinding);

  finally
    DataStringStream.Free;
  end;
end;

procedure TUDPMainForm.Relay(ReceivedString: String; ABinding: TIdSocketHandle);
var UDPClient: TIdUDPClient;
begin
      UDPClient:= TIdUDPClient.Create(nil);
      UDPClient.Active:= True;
      UDPClient.Host:= '...'; // ip master server
      UDPClient.Port:= ...;  // port master server
      UDPClient.Send(ReceivedString);
      ReceivedString := UDPClient.ReceiveString();
      UDPClient.Free;

      UDPServer.Send(ABinding.PeerIP, ABinding.PeerPort, ReceivedString);
end;

allerdings stürzt das ganze recht schnell ab, hat jemand vielleicht
eine idee wie ich das ganze verbessern kann? evtl über threads oder mappedport?
oder gibt es hier noch andere, bessere lösungen als UDPClient?

über einen code schnippsel würde ich mich sehr freuen =))

mfg

[SirThornberry]

Zitat:

allerdings stürzt das ganze recht schnell ab

Interessante Fehlermeldung die mir so Delphi bisher noch ni ausgespuckt hat
Mal im Ernst, wenn wir dir helfen sollen einen Fehler zu beseitigen sollten wir wissen welchen Fehler du beseitigen willst.

[endeffects]

hallo,

naja es gibt leider keine fehlermeldung, das ganze friert einfach ein.
der udp server beantwortet auch keinerlei anfragen mehr.

irgendwie scheint der udp client alles andere zu blockieren.

[endeffects]

wenn der client auf die antwort wartet geht dann gar nichts mehr:

ReceivedString := UDPClient.ReceiveString(); alles danach wird nicht mehr ausgeführt

[littleDave]

Die Indy-Komponenten arbeiten im Blocking-Mode. Dabei wird die Anwendung "angehalten" bis ein Befehl ausgeführt wird bzw. eine Fehlermeldung gekommen ist. Von daher würde es sehr empfehlenswert sein, Threads zu verwenden. Dann blockieren die Indys nur the Thread und nicht das Hauptprogramm.