Bonjour,
J'ai compilé mon code mais j'obtiens une erreur assez bizzar. J'aimerai bien lancer le programme comme "app.exe 1 2" mais j'obtiens ceci Erreur 0x0eedfade.
Est ce que quelqu'un aurait l'amabilité de m'aider?
voici le code
program app;
uses
SHDocVw;
var
Flags, Headers, TargetFrameName, PostData: oleVariant;
url,ref: string;
webbrowser: TWebBrowser;
begin
Try
webbrowser := TWebBrowser.Create(nil);
Flags := 1;
TargetFrameName := '';
PostData := '';
Url:=ParamStr(1);
Ref:=ParamStr(2);
Headers := 'Referer: ' + Ref+#10+#13;
webbrowser.Navigate( url,
Flags,
TargetFrameName,
PostData,
Headers );
finally
webbrowser.Free;
end;
end.