Kommunikation mellem to programmer

der ligger et eksempel på en chat over bruger tcp/ip porten, efter man har kigget på det eksempel er det faktisk ikke særlig svært at lave små sjove ting over tcp/ip.

eksempelet ligger i din delphi mappe under:

...\\Demos\\Internet\\Chat

er det ikke lige nået så skriv hvad du skal bruge?

/ZIRON

Det kan (og er der) skrives tykke bøger om!! Der er mange forskellige måder at kommunikere mellem to programmer på. For bare at nævne nogle få (der alle er tilgængelige i Delphi):

- CORBA.
- Midas.
- Sockets.
- SOAP (fra Delphi 6).
- HTTP.

osv. osv...

Mange af disse er svære at komme igang med. Og typisk kræves der en ekstra licens (= det koster penge!) at anvende kommunikationsformen. Det gælder fx. CORBA og Midas.

Men en kommunikations-type, der er let at anvende - og gratis er sockets (du skal dog have en Delphi Pro udgave!). På Internet fanebladet (D6), er der to komponenter: TServerSocket hhv. TClientSocket. I din server applikation tilføjer du først-nævnte og sætter den til at lytte på en bestemt port (en property).

Klienten tilføjes en TClientSocket, hvor Port sættes til det samme. Property Address sættes til IP-adressen på den maskine, der kører server-applikationen.

Følgende kode viser en ultra-simpel klient, der bare sender indholdet af et edit-felt til serveren:

procedure TForm2.LECButton1Click(Sender: TObject);
begin
  ClientSocket1.Open;
end;

procedure TForm2.LECButton2Click(Sender: TObject);
begin
  ClientSocket1.Close;
end;

procedure TForm2.LECButton3Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(Edit1.Text);
end;

Følgende kode viser koden fra den tilsvarende simple server, der blot tilføjer den modtagne streng til et memo-felt:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;

Hvis ikke du har en professional udgave af Delphi, kan det dog stadig lade sig gøre. Så skal du blot til at grave dig ned i Windows\' API-et - og det er bestemt ikke let, hvis man ikke er vant til det...

/Torben.

Eller en UDP client, den går ikke ned, eller hænger hvis den anden maskine er slukket

de bedste, nemmeste, hurtigste, mest stabile og mest fleksible komponenter til tcp/ip jeg kender ligger i komponent-suiten Indy:
www.nevrona.com/indy/

eller den simple MailSlot. Giv mig din e-mail, så sender jeg dig en fuld demo - jeg har lavet :), plus komponenterne.

Bruger du Martin Djernæs\' komponenter, eller er det nogle andre spændende?

jeg tror faktisk det er Martin Djernæs\' komponenter. Hvorfor?

Dem har jeg selv (haft problemer med)... Så det kunne være du havde nogle bedre...

jeg har ikke oplevet nogle problemer, men det var også blot en simpel chat ting jeg lavede.

Jeg har nu prøvet med Chat til D5. En på hver maskine. Men det virker stadig ikke. Det virker så simpelt at jeg ikke kan se fejlen.
Starter Chat op på hver maskine.
Den ene sættes til listen
Den anden vælges connect og IP-nummeret på den første maskine indtastes. Nu formoder jeg at jeg skulle kunne skrive noget og at det så skulle komme frem på den anden maskine, men det gør det ikke og efter et stykke tid få jeg en fejlmeddelelse. Wired.

PS: Både Ziron og Lectoc\'s svar er tilfredsstillende men jeg vil bare gerne lige have det til at virke inden jeg giver point.

hvad lavere den af fejl??? kan du connecte eller er det før det den laver en fejl???

/ZIRON

To linier oppe har jeg beskrevet forløbet.

Jeg tror jeg får en form for timeout.
Dvs. ingen connect.

Har du prøvet at ping\'e mellem de to maskiner, det skal du kunne for at det virker :

ping <IP-adr>

/Martin

ja som marti skriver så skal der være forbindelse mellem dem og hvis du kører med en firewall skal du også sørge for at den ikke blokker den port du bruger?

/ZIRON

Ziron det var faktisk min firewall der var med til fejlen og da du også var først, trods det at lectoc faktisk også havde et godt svar får du pointene. Jeg er dog villig til også at give lectoc 75 point hvis du læser dette lectoc finder vi lige en løsning.

Selvfølgelig læser jeg det. Jeg følger da med i de debatter, jeg selv deltager i....

Du bestemmer selv, hvordan du fordeler pointene.

mvh.
Torben.