![]() |
Webbrowser OleObject - Felder füllen
Hallo
Weiss jemand von euch warum ich diese 2 Felder nicht ausfüllen kann? Ist das nicht HTML? Oder mache ich mal wieder etwas falsch? Feld1
Code:
Feld2:
<textarea id="message" name="message" style="width: 100%; overflow=auto;" tabindex="2" onkeypress="sms_message_change(this.form)"
Code:
ich versuche es so auszufüllen:
<textarea id="recipient" name="recipient" class="wickEnabled" style="width: 100%;" tabindex="1" onclick="hideErrorBlock();" onblur="countRecipients()" rows="2">
Delphi-Quellcode:
(Item0-5 hab ich mal durchprobiert da ich nicht genau wusste wo die Felder genau liegen)
webbrowser1.oleobject.document.forms.item(1).elements.item('message').value := memo1.text;
(Ganzer Homepage Code)
Delphi-Quellcode:
<html>
<head> <meta http-equiv="Content-Script-Type" content="text/javascript" /> <script type="text/javascript"> <!-- function convertRecipient(recipient) { //remove all non digit numbers but not + recipient = recipient.replace(/[^\d|^\+]+/g, ""); if (recipient.length >= 3) { //IF first char=0 and 2nd not 0 THEN replace 0 by +41 if (recipient.match("^0[^0]\d+")) { recipient = recipient.replace("^0", "+41"); } //IF first and 2nd char=0 THEN replace 00 by + if (recipient.match("^00\d+")) { recipient = recipient.replace("^00", "+"); } } return recipient; } function countRecipients(){ var tmprecipients = document.getElementById('recipient').value var arraySpitter = tmprecipients.split(","); contactCounter= arraySpitter.length; if(contactCounter>10){ document.getElementById('recipientsWarningTR').style.display = ''; } else{ document.getElementById('recipientsWarningTR').style.display = 'none'; } } function addRecipient(recipientMsisdn, recipientName) { formatedRecipient= recipientName+" <"+convertRecipient(recipientMsisdn)+">"; if(document.getElementById('recipient').value.length==0){ document.getElementById('recipient').value=formatedRecipient; } else{ document.getElementById('recipient').value=document.getElementById('recipient').value+", "+formatedRecipient; } countRecipients(); } //--> </script> <link rel="stylesheet" href="/mip/ext/css/content.css" type="text/css" media="screen,projection" charset="utf-8" /> <link rel="stylesheet" href="/mip/ext/css/general.css" type="text/css" media="all" title="no title" charset="utf-8" /> <link rel="stylesheet" href="/mip/ext/css/screen.css" type="text/css" media="screen,projection" charset="utf-8" /> <link rel="stylesheet" href="/mip/ext/css/header.css" type="text/css" media="screen,projection" charset="utf-8" /> <link rel="stylesheet" href="/mip/ext/css/images.css" type="text/css" media="all" charset="utf-8" /> <link rel="shortcut icon" href="/mip/ext/img/favicon.ico" type="image/gif" media="all" /> <link rel="icon" href="/mip/ext/img/favicon.ico" type="image/gif" media="all" /> <!--[if IE]> <link rel="stylesheet" href="/mip/ext/css/screen_ie.css" type="text/css" media="screen" charset="utf-8" /> <![endif]--> <!--[if lt IE 7]> <link rel="stylesheet" href="/mip/ext/css/screen_ie6.css" type="text/css" media="screen" charset="utf-8" /> <![endif]--> <!--[if lt IE 6]> <link rel="stylesheet" href="/mip/ext/css/screen_ltie6.css" type="text/css" media="screen" charset="utf-8" /> <![endif]--> <STYLE TYPE="text/css"> <!-- BODY {margin: 0;} INPUT {border: 1px solid #C1B2B4;} TEXTAREA {border: 1px solid #C1B2B4;} textarea.error { background-color:#FCE5F1; color:black; } .radio_b { border: none !important; vertical-align: middle !important; padding-left: 10px; padding-right: 2px 2px 2px 0px; } .attachment_b {border: 1px solid #C1B2B4 !important;} .attachment_b_opera {border: none !important;} .accordion h2 { background-color:#E0CED0; padding:0pt; margin:0pt; cursor: pointer; } .accordion h2 span { padding:0px; margin:0pt; } .accordion h2 span img { float:right; margin:0.4em 0.4em 0pt 0pt; padding-right:0.4em; } .contacts div { line-height:2.0em; padding-left:0.4em; } .header { padding-bottom:0.5em; padding-top:0.5em; } .contact_item div { display: inline; cursor: pointer; } .button div { display:table-cell; } * html .button { display:inline-block; } .pg-normal { font-weight: normal; } .pg-selected { font-weight: bold; } --> </STYLE> <title>SMS-/MMS-Sender</title> <script type="text/javascript" language="JavaScript" src="/mip/ext/js/paging.js"></script> <script type="text/javascript" language="JavaScript" src="/mip/ext/js/motionpack.js"></script> <link rel="stylesheet" href="/mip/ext/css/wick.css" type="text/css" media="all" title="no title" charset="utf-8" /> <script type="text/javascript" language="JavaScript"> collection = ['""']; </script> <script type="text/javascript" language="JavaScript"> contactCounter=0; </script> <script type="text/javascript" language="JavaScript" src="/mip/ext/js/wick.js"></script> <script type="text/javascript" language="JavaScript"> //<!-- function checkForm() { answer = true; if ( document.getElementById('mmsRB').checked) { document.getElementById('mmsAttachmentFileName').value = document.getElementById('mmsAttachment').value; } if (siw && siw.selectingSomething) answer = false; return answer; } //--> </script> <script type="text/javascript" language="JavaScript" src="/mip/ext/js/cookieTools.js"></script> </head> <body onload="onBodyLoadFn()" marginheight="0" marginwidth="0" topmargin="0" leftmargin="0"> <p> <span id="errorBlock" class="error"> <!-- SMS limit reached warning --> <div id="smsWarningTR" style="display:none;"> Die maximale Nachrichtenlänge wurde erreicht. </div> </span> </p> <div id="recipientsWarningTR" class="error" style="display:none;"> Es können maximal 10 Empfänger pro Nachricht ausgewählt werden. </div> <table border="0" width="100%" style="margin: 0pt"> <!-- set up proportions --> <tr> <td width="30%"></td> <td width="50%"></td> <td></td> </tr> <!-- Here begins the form --> <form id="smsMmsSenderForm" method="post" action="/mip/dyn/login/smsMeinKonto?lang=de" enctype="multipart/form-data" onsubmit="return checkForm()"> <!-- Sender --> <tr> <td> Absender </td> <td colspan="2"> 000000000 </td> </tr> <!-- Recipient input text + message length counter --> <tr> <td> Empfänger </td> <td> <textarea id="recipient" name="recipient" class="wickEnabled" style="width: 100%;" tabindex="1" onclick="hideErrorBlock();" onblur="countRecipients()" rows="2"></textarea> </td> <td style="text-align: right"> <div style="float:right;"><input style="width: 45px;" type="text" name="charsLeft" readonly="readonly" maxlength="10" tabindex="-1" value="160" /></div> </td> </tr> <!-- SMS / MMS Switch --> <tr> <td> </td> <td style="padding-left: 0px;" colspan="2"> <div style="vertical-align: middle; padding: 4px 2px 0px 0px;"> <input id="smsRB" name="type" class="radio_b" tabindex="-1" onclick="hideErrorBlock(); switchToSmsView(this.form);" type="radio" value="sms" checked="checked"/>SMS <input id="mmsRB" name="type" class="radio_b" tabindex="-1" onclick="hideErrorBlock(); switchToMmsView(this.form);" type="radio" value="mms"/>MMS </div> </td> </tr> <!-- Message textarea --> <tr> <td> Nachricht </td> <td colspan="2"> <textarea id="message" name="message" style="width: 100%; overflow=auto;" tabindex="2" onkeypress="sms_message_change(this.form)" onkeyup="sms_message_change(this.form)" rows="4" cols="40"></textarea> </td> </tr> <!-- MMS Attachment --> <tr id="mmsAttachmentTR" style="display:none;"> <td> Bild hinzufügen: </td> <td colspan="2"> <input type="file" class="attachment_b" id="mmsAttachment" name="mmsAttachment" size="10" accept="image/*" tabindex="3"> <input id="mmsAttachmentFileName" name="mmsAttachmentFileName" type="hidden" value=""/> </td> </tr> <!-- SMS counters --> <tr> <td> </td> <!-- Show [Send] button if it is possible --> <td colspan="2"> <div class="submit"> <button type="submit" value="send" name="send" tabindex="4">Senden</button> <input type="hidden" name="task" value="send"/> <input type="hidden" name="currentMsisdn" value="000000000000"/> </div> </td> </tr> </form> <!-- Show [Buy] button if it is possible --> <tr> <td> Guthaben </td> <td> <form method="post" action=""> </form> </td> <td> Gratis 49 Bezahlt 0 </td> </tr> <tr> <td> Postausgang </td> <td> <div class="submit"> <button type="submit" name="outbox" onclick="openOutboxWindow('/mip/dyn/login/outboxMeinKonto')">Gesendete Nachrichten</button> </div> </td> </tr> </table> <div class="accordion"> <h2 class="header first-child" onClick="toggle('contacts','slide_toggle','/mip/ext/img/bus_plus_n.gif','/mip/ext/img/bus_minus_n.gif');"> <span><img src="/mip/ext/img/bus_plus_n.gif" id="slide_toggle"/></span> <span style="padding-left:0.4em;">Adressbuch</span> </h2> <div class="contacts" id="contacts" style="overflow:hidden;"> <div class="header"> <form id="SMSCommand" method="post" action="/mip/dyn/login/smsMeinKonto?lang=de"> <div style="float:left;width:70%;padding-left:0.3em;"> <input id="contactName" name="contactName" class="normal" style="width:49%" tabindex="5" onfocus="if(this.value=='Hans Muster') {this.value='';this.style.color='#000000';}" onblur="if(this.value=='') {this.value='Hans Muster';this.style.color='#afafaf';}" type="text" value="" maxlength="50"/> <input id="contactMsisdn" name="contactMsisdn" class="normal" style="width:49%" tabindex="6" onfocus="if(this.value=='+41 76 123 45 67') {this.value='';this.style.color='#000000';}" onblur="if(this.value=='') {this.value='+41 76 123 45 67';this.style.color='#afafaf';}" type="text" value="" maxlength="50"/> <input id="editID" name="editID" type="hidden" value=""/> <script type="text/javascript"> //<!-- if(document.getElementById('contactName').className!="error") { document.getElementById('contactName').value = 'Hans Muster'; document.getElementById('contactName').style.color = '#afafaf'; document.getElementById('editID').value=''; } if(document.getElementById('contactMsisdn').className!="error") { document.getElementById('contactMsisdn').value = '+41 76 123 45 67'; document.getElementById('contactMsisdn').style.color = '#afafaf'; document.getElementById('editID').value=''; } //--> </script> </div> <div class="button"> <div class="submit"> <button type="submit" onclick="if(document.getElementById('contactName').value=='Hans Muster'){document.getElementById('contactName').value=''};if(document.getElementById('contactMsisdn').value=='+41 76 123 45 67'){document.getElementById('contactMsisdn').value=''};this.style.color='#000000';" value="addContact" name="add">hinzufügen</button> <input type="hidden" name="task" value="addContact"/> <input type="hidden" name="currentMsisdn" value="0765790054"/> </div> </div> </form> </div> <div id="pageNavPosition" class="pagenavigation" style="padding-left:1.2em;display:none;"></div> </div> </div> <script type="text/javascript"> //<!-- function editContact(id,msisdn,name){ document.getElementById('contactName').value=name; document.getElementById('editID').value=id; document.getElementById('contactName').style.color='#000000'; document.getElementById('contactMsisdn').value=msisdn; document.getElementById('contactMsisdn').style.color='#000000'; } var cookieName = 'mip_msg_dispContacts'; var x = readCookie(cookieName) if (x == "1") { document.getElementById('contacts').style.display = "block"; document.getElementById('slide_toggle').src = "/mip/ext/img/bus_minus_n.gif"; } else if (x == "0") { document.getElementById('contacts').style.display = "none"; document.getElementById('slide_toggle').src = "/mip/ext/img/bus_plus_n.gif"; } else if (x == null) { //default setting document.getElementById('contacts').style.display = "none"; document.getElementById('slide_toggle').src = "/mip/ext/img/bus_plus_n.gif"; //create cookie createCookie(cookieName,'0',1000); } function toggle(objname,controller,img_open,img_close){ if(document.getElementById(objname).style.display == "none") { //open document.getElementById(controller).src = img_close; slidedown(objname); createCookie(cookieName,'1',1000); } else if (document.getElementById(objname).style.display == "block") { //close document.getElementById(controller).src = img_open; slideup(objname); createCookie(cookieName,'0',1000); } else { return; } _IG_AdjustIFrameHeight(); } function onBodyLoadFn() { if (window.opera) { var box = document.getElementById('mmsAttachment'); box.className = 'attachment_b_opera'; } switchToProperSmsMmsView(); } function switchToProperSmsMmsView() { var thisform = document.getElementById('smsMmsSenderForm'); if ( document.getElementById('mmsRB').checked) { switchToMmsView(thisform); } else { switchToSmsView(thisform); } } function switchToSmsView(thisform) { document.getElementById('mmsAttachmentTR').style.display = 'none'; sms_message_change(thisform); _IG_AdjustIFrameHeight(); } function switchToMmsView(thisform){ document.getElementById('mmsAttachmentTR').style.display = ''; sms_message_change(thisform); _IG_AdjustIFrameHeight(); } function hideErrorBlock() { document.getElementById('errorBlock').style.display = 'none'; } //get contact setting contactsPerPage = parseInt(queryString('up_contactsPerPage')); if (isNaN(contactsPerPage)) { contactsPerPage = 10; } var pager = new Pager('contact', contactsPerPage); pager.init('pageNavPosition'); pager.showPageNav('pager', 'pageNavPosition'); pager.showPage(1); function queryString(parameter) { var loc = location.search.substring(1, location.search.length); var param_value = false; var params = loc.split("&"); for (i=0; i<params.length;i++) { param_name = params[i].substring(0,params[i].indexOf('=')); if (param_name == parameter) { param_value = params[i].substring(params[i].indexOf('=')+1) } } if (param_value) { return param_value; } else { return false; //Here determine return if no parameter is found } } function openOutboxWindow (outboxUrl) { window.open(outboxUrl, "outbox", "menubar=no,status=no,titlebar=no,width=800,resizable=yes,scrollbars=yes"); } function sms_message_change(thisform) { var maxLength; var msg = thisform.message.value; var newlineCount = msg.split("\n").length - 1; if (navigator.userAgent.indexOf("MSIE") > 0) { newlineCount = msg.split("\r\n|\r|\n").length - 1; } var charcount = msg.length + newlineCount; if (document.getElementById('mmsAttachmentTR').style.display == '') { maxLength = 3000; thisform.charsLeft.value = maxLength - charcount; if(charcount > maxLength) { thisform.message.value = msg.slice(0, maxLength - newlineCount); return; } } else { maxLength = 160; var maxSms = 3; if (charcount > maxLength * maxSms) { thisform.message.value = msg.slice(0, (maxLength * maxSms) - newlineCount); document.getElementById('smsWarningTR').style.display = ''; _IG_AdjustIFrameHeight(); } else { document.getElementById('smsWarningTR').style.display = 'none'; } numberOfSms = Math.floor((charcount-1) / maxLength) + 1; if (numberOfSms == 0) { thisform.charsLeft.value = maxLength + " / 1"; } else { thisform.charsLeft.value = (maxLength * numberOfSms - charcount) + " / " + numberOfSms; } } if((navigator.userAgent.indexOf("MSIE") == -1) && (navigator.userAgent.indexOf("Mozilla/4") != -1)) { thisform.message.blur(); thisform.message.focus(); } } //--> </script> </body> </html> |
AW: Webbrowser OleObject - Felder füllen
Delphi-Quellcode:
webbrowser1.oleobject.document.forms.item(0).elements.item('message').value := .....
|
AW: Webbrowser OleObject - Felder füllen
Zitat:
Habe ich schon probiert. (0-5) bringt alles nichts. |
AW: Webbrowser OleObject - Felder füllen
Bei mir geht es damit es ist ja auch das erste Form
Code:
<!-- Here begins the form -->
<form id="smsMmsSenderForm" method="post" action="/mip/dyn/login/smsMeinKonto?lang=de" enctype="multipart/form-data" onsubmit="return checkForm()"> |
AW: Webbrowser OleObject - Felder füllen
Ansonsten nimm einfach
Delphi-Quellcode:
WebBrowser1.OleObject.Document.getElementById('message').value := Memo1.text;
|
AW: Webbrowser OleObject - Felder füllen
Liste der Anhänge anzeigen (Anzahl: 1)
Sehr merkwürdig. Bei mir geht beides nicht.
Erhalte immer folgende Meldung: (Bild im Anhang) Ich warte auch extra schön bis die Homepage geladen ist und führe diesen Code extra Manuell per Button aus um ganz sicher zu gehen. :? |
AW: Webbrowser OleObject - Felder füllen
Assigned(WebBrowser1) ist schon true ?
|
AW: Webbrowser OleObject - Felder füllen
Zitat:
Delphi-Quellcode:
Ich erhalte die Meldung "Vor" also Assigned =true
procedure TForm1.Button1Click(Sender: TObject);
begin if Assigned(WebBrowser1)=true then showmessage('Vor'); WebBrowser1.OleObject.Document.getElementById('recipient').value := combobox1.Items[combobox1.ItemIndex]+edit3.Text; WebBrowser1.OleObject.Document.getElementById('message').value := memo1.Text; end; |
AW: Webbrowser OleObject - Felder füllen
Hallo,
die Fehlermeldung muss nicht zwingend in der Zeile auftreten, die Du uns gezeigt hast. Zeig doch bitte mal etwas mehr Quellcode. Oder hilft Dir diese Funktion?
Delphi-Quellcode:
Der Aufruf müsste dann in etwa so aussehen:
// ...HTML Formulare mit TWebBrowser automatisch ausfüllen lassen?
function WBFillForm(wb: TWebBrowser; sFieldName: string; sValue: string): Boolean; var i, j: Integer; FormItem: Variant; begin Result := False; //no form on document if wb.OleObject.Document.all.tags('FORM').Length = 0 then begin Exit; end; //count forms on document for I := 0 to wb.OleObject.Document.forms.Length - 1 do begin FormItem := wb.OleObject.Document.forms.Item(I); for j := 0 to FormItem.Length - 1 do begin try // when the fieldname is found, try to fill out if AnsiUpperCase(FormItem.Item(j).Name) = AnsiUpperCase(sFieldName) then begin FormItem.Item(j).Value := sValue; Result := True; end; except Exit; end; end; end; end;
Delphi-Quellcode:
Application.ProcessMessages;
while WebBrowser1.Busy do Application.ProcessMessages; while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; if not WBFillForm(WebBrowser1,'message', Memo1.Text) then begin ShowMessage('Das Feld Message konnte nicht gefüllt werden.'); end; Application.ProcessMessages; while WebBrowser1.Busy do Application.ProcessMessages; while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; |
AW: Webbrowser OleObject - Felder füllen
Zitat:
Ok hier mal mein Quellcode, Dein Code habe ich übrigens getestet. Leider kommt die Meldung dass das Feld nicht ausgefüllt werden konnte.
Delphi-Quellcode:
var
Form1: TForm1; implementation {$R *.dfm} function WB_GetHTMLCode(WebBrowser: tembeddedwb; ACode: TStrings): Boolean; var ps: IPersistStreamInit; ss: TStringStream; sa: IStream; s: string; begin ps := WebBrowser.Document as IPersistStreamInit; s := ''; ss := TStringStream.Create(s); try sa := TStreamAdapter.Create(ss, soReference) as IStream; Result := Succeeded(ps.Save(sa, True)); if Result then ACode.Add(ss.Datastring); finally ss.Free; end; end; function FillForm(WebBrowser: tembeddedwb; FieldName: string; Value: string): Boolean; var i, j: Integer; FormItem: Variant; begin Result := False; //no form on document if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then begin Exit; showmessage('Exit'); end; //count forms on document for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do begin FormItem := WebBrowser.OleObject.Document.forms.Item(I); for j := 0 to FormItem.Length - 1 do begin try //when the fieldname is found, try to fill out if FormItem.Item(j).Name = FieldName then begin FormItem.Item(j).Value := Value; Result := True; end; except Exit; end; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if Assigned(WebBrowser1)=true then showmessage('Vor'); WebBrowser1.OleObject.Document.getElementById('recipient').value := combobox1.Items[combobox1.ItemIndex]+edit3.Text; WebBrowser1.OleObject.Document.getElementById('message').value := memo1.Text; end; procedure TForm1.Button2Click(Sender: TObject); begin if combobox2.ItemIndex=2 then webbrowser1.Navigate('http://www.bern-web.ch/'); if combobox2.ItemIndex=1 then webbrowser1.Navigate('http://www1.sunrise.ch/SMS-Sender-cbBpfAqFI.RUoAAAEwinJTNyCu-Sunrise-Residential-Site-WFS-de_CH-CHF.html'); progressbar1.Position:=25; end; procedure TForm1.Button5Click(Sender: TObject); begin if form1.Height=322=false then form1.Height:=322 else form1.Height:=590; end; procedure TForm1.Edit4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin Set8087CW($133F); memo2.Lines.LoadFromFile(ExtractFilePath(Application.Exename)+'\config.txt'); end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; procedure TForm1.Memo1Change(Sender: TObject); var i: integer; i2: integer; begin i:=memo1.MaxLength; i2 := Length(Memo1.Text); i:=i-i2; edit4.Text:=inttostr(i); if i<160 then edit1.Text:='3/3'; if i>160 then edit1.Text:='2/3'; if i>320 then edit1.Text:='1/3'; if i>479 then edit1.Text:='0/3'; end; procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; procedure TForm1.ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end; procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); var i:integer; begin progressbar1.Position:=35; if combobox2.ItemIndex=2 then begin WB_GetHTMLCode(Webbrowser1, Memo2.Lines); if FillForm(WebBrowser1, 'smsMessage', memo1.Text)=true then begin progressbar1.Position:=50; webbrowser1.Stop; FillForm(WebBrowser1, 'smsMessage', memo1.Text) ; FillForm(WebBrowser1, 'SMSEingabe', edit3.Text) ; if combobox1.ItemIndex=1 then FillForm(WebBrowser1, 'intlPrefix', '004176'); if combobox1.ItemIndex=2 then FillForm(WebBrowser1, 'intlPrefix', '004177'); if combobox1.ItemIndex=3 then FillForm(WebBrowser1, 'intlPrefix', '004178'); if combobox1.ItemIndex=4 then FillForm(WebBrowser1, 'intlPrefix', '004179'); webbrowser1.oleobject.document.forms.item(4).submit; progressbar1.Position:=75; end else begin if progressbar1.Position=35 then begin if edit7.Text='http://www.bern-web.ch/' then begin if pos('Heute wurden von Ihrer IP-Adresse',Memo2.Text) > 0 then label1.Caption:='Fehler: Limit erreicht! (IP oder Service wechseln)' else label1.Caption:='Fehler: Service Down?'; label1.Visible:=true; end; end; end; if edit7.Text='http://www.bern-web.ch/Bern/sms_ok/' then begin Progressbar1.Position:=100; webbrowser1.Navigate('www.google.com'); end; end; ///////////////// ////////////////////// if combobox2.ItemIndex=1 then begin repeat; Application.ProcessMessages; Sleep(1); until WebBrowser1.ReadyState=4; try webbrowser1.oleobject.document.forms.item(1).elements.item('LoginForm_Login').value := memo2.Lines[2]; except end; if webbrowser1.oleobject.document.forms.item(1).elements.item('LoginForm_Login').value =memo2.Lines[2] then begin webbrowser1.oleobject.document.forms.item(1).elements.item('LoginForm_Password').value := memo2.Lines[3] ; webbrowser1.oleobject.document.forms.item(1).submit; end; //Server1 ENDE end; end; procedure TForm1.Webbrowser1DownloadComplete(Sender: TObject); begin edit7.Text:=webbrowser1.LocationURL; end; end. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:00 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz