Ik weet niet of ik in het juiste forum zit maar ik hoop dat iemand me kan helpen.
In Delphi heb ik een single sign on gemaakt vooor een bepaalde website. Nu zou ik deze sso graag ook omzetten naar een html of php formulier dat ik ook vanaf een website aan kan roepen. Dus onder een button op een website soortgelijke code laten uitvoeren. Hieronder de code die ik gebruik om in te loggen op de website.
Code:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurrentBrowser: IWebBrowser2;
Doc3 : IHTMLDocument3;
begin
CurrentBrowser := pDisp as IWebBrowser2;
Doc3 := CurrentBrowser.Document as IHTMLDocument3;
Webbrowser1.OnDocumentComplete := nil;
Doc3.getElementById('username').setAttribute('value', 'gebruiker', 0);
Doc3.getElementById('password').setAttribute('value', 'wachtwoord', 0);
Doc3.getElementById('login').Click;
end;
Bookmarks