Hi,
ich möchte eine Verbindung weiterleiten und ich hab mir das so gedacht:
Din serversocket bekommt eine Verbindung.
danach werden alle Verbindungen die der Server erhält an den Clienten weitergeleitet, welcher dann zu einem anderen Server connected.
Die daten die der client erhält werden zum serversocket zurückgeschickt und dann halt zu der Verbindung geschickt.
Hab das mal versucht zu realisieren:
Delphi-Quellcode:
procedure write(p_test:pansichar);
var
i:integer;
begin
for i:=0 to form1.ServerSocket1.Socket.ActiveConnections-1 do
begin
form1.ServerSocket1.Socket.Connections[i].SendBuf(p_test,length(p_test));
end;
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
me_meg.Lines.Add('server: client connected');
clientsocket1.Active:=true;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
p_text:pansichar;
begin
me_meg.Lines.Add('client msg: '+Socket.ReceiveText);
Socket.ReceiveBuf(p_text,Socket.ReceiveLength);
write(p_text);
end;
[procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
p_text:pansichar;
begin
me_meg.Lines.Add('server msg: '+Socket.ReceiveText);
Socket.ReceiveBuf(p_text,Socket.ReceiveLength);
clientsocket1.Socket.SendBuf(p_text,Socket.ReceiveLength);
end;
blos das funzt nicht ganz so wie ich es will...
muss ich vlt einen
TCP-Server verwenden?
mfg
gandime