Sende data fra et program til et andet

Du kan jo altid lade programmerne deles om en fil som den ene skriver til og den anden læser fra. Kører programmerne samtidig?

message procedure på den mainform der skal modtage :

procedure WMCopyData(var Msg : TMessage); message WM_COPYDATA;

----------------------------------------------------------------------
procedure der sender :

procedure SendMSG();
VAR
  R : rMsgRec; // en alm. Record struct
  TargetWnd : hWnd;
  CopyDataStruct : TCopyDataStruct;
begin
  TargetWnd := FindWindow(NIL,cTargetWndCaption);
  with CopyDataStruct do
  begin
      // Fill data to R here
      //
     
      if TargetWnd > 0 then
      begin
        dwData := 5;  // put whatever DWORD value you want here.
        cbData := SizeOf(R);
        lpData := @R;
        // Send the Message WM_CopyData
        SendMessage(TargetWnd, WM_COPYDATA, 0, Longint(@CopyDataStruct));
      end;
  end;
end;

Det funker fint hvis begge programmer kører samtidig :)

Måske en TCP forbindelse, eller en UDP pakke.

Det jeg tænkte på bliver bedst dækket af martinlind's version, men jeg vil meget gerne høre lidt mere om hvordan UDP pakker fungerer...

Hvis du har Indy installeret er det rimelig enkelt, du sætter en UDP server i det program der skal modtage (TIdUDPServer) til at lytte på en bestemt port. I det program der skal sende bruger du så en UDP klient (TIdUDPClient) til at sende en pakke på den port det andet program lytter på.
Men det er nok lige så let, hvis ikke lettere, at benytte WM_COPYDATA som martinlind skriver, jeg bruger selv WM_COPYDATA og det fungere ganske fint.

Fordelen, hvis du har noget at bruge det til, ved UDP er selfølgelig at du kan sende beskeder til et program på en anden computer på lokal nettet eller via internettet.

Nå ja, lige et ting til. Hvis du skal sende via internettet er UDP ikke en sikker løsning da du ikke kan være sikker på at pakken kommer frem, så via internettet er TCP bedst.

kroning >> det kommer lidt an på hvad det skal bruges til, en "fast" forbindelse kan nogle gange være en ulempe da man jo kan få et program der "hænger" hvis det i den anden ende ikke svarer :), det gør en udp ikke

Med mindre man bruger venstre fod til at programmere med så laver man vel normalt en timeout så programmet/tråden ikke kommer til at "hænge".

ja ja, men "fordelen" ved UDP er netop at der ikke er "fast forbindelse"

Jeg tror ikke at det at UDP ikke er en "fast forbindelse" normalt bliver betragtet som en fordel, og jeg kan heller ikke se hvorfor det skulle være en fordel.

kroning >> det må du såmænd tror som du har lyst til :), vi kan også kalde det en af forskellene.