Send tekst over internettet

kig på INDY pakken der følger med delphi og som kan hentes i nyeste version på nettet gratis

brug f.eks. IdTCPClient og server de virker kanon over internettet

Okay. Hvordan får jeg så en klient til at oprette forbindelse til den der lige har oprettet forbindelse til serveren (i Serverens OnConnect)?

Ændrer lige spørgsmålet lidt.
Hvordan får jeg serveren til at køre så den kan kontaktes via nettet?
Hvordan får jeg hver gang der tilsluttes en klient tilføjet en linje til en listbox hvor der står klientens ip/hostname?

Hvis i kan svare på det får i pointene

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
lblog.Items.add('Forbundet med: '+AThread.Connection.Socket.Binding.PeerIP+' : '+DateTimeToStr(now));
end;

procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
lblog.Items.add('Afbrugt forbinelse til: '+AThread.Connection.Socket.Binding.PeerIP+' : '+DateTimeToStr(now));
end;

procedure TForm1.IdTCPServer1BeforeCommandHandler(ASender: TIdTCPServer;
  const AData: String; AThread: TIdPeerThread);
begin
lblog.Items.Add('Check af version til: '+adata);
end;

iblog er en listbox

Hvordan får jeg serveren til at køre så den kan kontaktes via nettet?

Ved at indsætte et port nr i defaultport, som er åben gennem din evt. router, f.eks. 3100

En sidste ting. Nu her jeg siddet og leget lidt med det men kan simpelthen ikke få følgende kode til at virke så håber du (eller en anden) lige gider tage et kig på den.
Det ville jeg være meget taknemmelig for :)

SERVER

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
Connections.Items.add(AThread.Connection.Binding.PeerIP);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.ConnectionsDblClick(Sender: TObject);
begin
Edit1.Text:= Connections.Items.Strings[Connections.Itemindex];
Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Client1.Disconnect;
Client1.Host:= Edit1.Text;
Client1.Connect;
Client1.WriteLn('hej');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Client1.Connected = true) and (Server1.Active = True) then
  begin
  Image1.Hide;
  Image2.Show;
  end
else
  begin
  Image1.Show;
  Image2.Hide;
  end;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add(Client1.ReadLn());
end;

end.


CLIENT

procedure TForm1.Server1Connect(AThread: TIdPeerThread);
begin
Client1.Disconnect;
Client1.Host:= AThread.Connection.Binding.PeerIP;
Client1.Connect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1.Active:= True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Server1.Active:= False;
end;

procedure TForm1.Server1Execute(AThread: TIdPeerThread);
begin
if Client1.ReadLn() = 'hej' then Client1.WriteLn('hej');
end;

end.

Kan være jeg lige skal sige at det eneste den gør når man trykker på connect er at den kommer med en "fejllyd" på den anden computer.

...