Posty: 38 #1995971
|
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;
===========================================================
|
FILMY VIDEO