Plugin do komunikacji z Orbitronem |
Witam!!! Nie pisałem bo walczyłem z tym programem ale "DUPA " :- (((( Dołączam kawałek kodu do komunikacji który napisałem ale : Pomiędzy liniami znajduje się kod, który wykonuje się poprawnie, ale przy wywołaniu funkcji OpenLink zwracana jest wartość False, tj że połączenie z serwerem DDE programu Orbitron nie powiodło się. Moze ktos mi pomóc co jest nie tak ???? in Lazarus (Delphi) ================================================== var Tracking: TDdeClientConv; TrackingData: TDdeClientItem; begin try //get Orgitron path from registry Path:=GetOrbitronPath; dde:=TDDEServerConv.Create(nil); TrackingData := TDDEClientItem.Create(nil); TrackingData.DdeItem := 'Orbitron'; Tracking := TDDEClientConv.Create(nil); Tracking.ServiceApplication:=Path + 'orbitron'; with Tracking do begin ConnectMode := ddeManual; // To be sure set the manual mode // Link set // The first parameter is the application name without ".exe" // The second parameter is the DDE server component name SetLink('Orbitron','Tracking'); if OpenLink then // Start the client-server connection begin Tag := 1; MessageDlg('DDE Link established.', mtInformation, [mbOK], 0) end else begin Tag := 0; MessageDlg('No link to DDE service program.', mtInformation, [mbOK],0); end; end; except // end; end; =========================================================== |