TDDEClient.RequestData
| TDDEClient = class (TObject) | Interface de TDDEClient | Exemples de TDDEClient |
Interroge un serveur DDE
Syntaxe
function RequestData(item: String): String
item: élément de donnée à interroger
Exemples
function GetFirefoxCurrentURL : String;
var
dde : TDDEClient;
lstData : TStrings;
begin
// Création du lient DDE
dde:=TDDEClient.Create('Firefox', 'WWW_GetWindowInfo', 'Firefox');
dde.OpenLink;
if not dde.LinkOpened or dde.WaitStat then Exit;
// Interrogation de l'application et fermeture du lien
lstData:=TStrings.Create;
lstData.CommaText:=dde.RequestData('URL');
dde.CloseLink;
if lstData.Count>0 then Result:=lstData[0];
end;
PrintLn(GetFirefoxCurrentURL);
var
dde : TDDEClient;
lstData : TStrings;
begin
// Création du lient DDE
dde:=TDDEClient.Create('Firefox', 'WWW_GetWindowInfo', 'Firefox');
dde.OpenLink;
if not dde.LinkOpened or dde.WaitStat then Exit;
// Interrogation de l'application et fermeture du lien
lstData:=TStrings.Create;
lstData.CommaText:=dde.RequestData('URL');
dde.CloseLink;
if lstData.Count>0 then Result:=lstData[0];
end;
PrintLn(GetFirefoxCurrentURL);