Det eneste programmet skal gøre, er er huske 2 indtastede værdier (brugernavn,kodeord)
Brugeren kommer ind på den specifikke hjemmeside, og har før han kommer ind, indtastet brugernavn og kodeord i programmet, så skal programmet indsætte kode/brugernavn i de felter der er på hjemmesiden, via en genvej..
nogle der har et forslag til hvilke komponenter jeg skal bruge til at lave dette?
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
uses ComObj;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate(NavnetPåHTMLSiden, EmptyParam, EmptyParam, EmptyParam, EmptyParam); end;
procedure TForm1.Button2Click(Sender: TObject);
procedure SetTextValue(Doc: IHTMLDocument2; const TextID, Value: string); var Elements: IHTMLElementCollection; Elt: IDispatch; Text: DispHTMLTextElement; begin Elements := Doc.all; Elt := Elements.item(TextID, EmptyParam);
if Assigned(Elt) then begin OleCheck(Elt.QueryInterface(DispHTMLTextElement, Text)); Text.setAttribute(\'Value\', Value, 0); end; end;
var Doc: IHTMLDocument2; begin Doc := WebBrowser1.Document as IHTMLDocument2; if Assigned(Doc) then begin SetTextValue(Doc, \'brugernavn\', \'Elmer Fjot\'); SetTextValue(Doc, \'password\', \'123456\'); end; end;
Indsætte brugernavn og password i det program, så vil jeg tro det er nemmest at gemme disse 2 værdier i en database eller måske endda bare en ini fil...
Så når bruger kommer ind på hjemmeside, skal han/hun, bare trykke på en forudbestemt genvej, for at indsætte disse 2 værdier...
som dkn siger, skal disse 2 værdier jo indsættes i nogle edit felter på hjemmesiden...
procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate(\'C:\\minhtmltest.htm\'); end;
procedure TForm1.Button1Click(Sender: TObject); var Index: Integer; Doc: IHTMLDocument2; Disp: IDispatch; Inp: IHTMLInputElement; Form: IHTMLFormElement; begin if Supports(WebBrowser1.Document, IHTMLDocument2, Doc) then begin Disp := Doc.all.item(\'userfieldname\', 0); if Supports(Disp, IHTMLInputElement, Inp) then Inp.value := \'Mit Username\';
Disp := Doc.all.item(\'passwordfieldname\', 0); if Supports(Disp, IHTMLInputElement, Inp) then Inp.value := \'Mit Password\'; end; end;
Så skulle den gerne skrive teksten ind i html dokumentet. dkn
dkn hvad siger du til dem her? hvad mangler jeg?Error] Unit1.pas(36): Undeclared identifier: \'IHTMLDocument2\' [Error] Unit1.pas(38): Undeclared identifier: \'IHTMLInputElement\' [Error] Unit1.pas(39): Undeclared identifier: \'IHTMLFormElement\' [Error] Unit1.pas(41): There is no overloaded version of \'Supports\' that can be called with these arguments
hmm jeg er ikke helt sikker på hvad du mener? Du snakker om en hjemmeside...er det på nettet du vil indsætte tekst i en form? Det jeg viste dig sætter username/password ind hvor det skal - men det kræver jo at du bruger en twebbrowser i Dit program.
jeg har gjort det du viste mig, og i dit eksempel smidder den jo kodden ind i selve programmet, (ind i browser komponenten)
det den skal er jo at indsætte disse værdier på en extern hjemmeside
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
