-
Forum: Netzwerke
by klaus9,
8. Jan 2012
ja stimmt da hast du recht.. hmm muß ich vielleicht nen bisschen rum probieren.
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
Hi, jetzt glaube ich habe ich es hinbekommen..
var was:string;
begin
IF (pos('MH',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0)
THEN
showmessage('nein')
else
IF (pos('11:45',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0) THEN
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
Stimmt :-( arghh klappt nicht ... Mist hast du eine Idee weil wenn ich 'Mh'+'11:45' mache klappt es auch nicht
Versuche gerade erst nach mh zu suchen und dann nach Zeit
Inform von zwei if POS .... Then if POS aber klappt auch nicht .. ;-(
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
Hmm zumindest hoffe ich es , also beim probieren hat es geklappt. Probier es aber gleich besser nochmal aus ..
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
Hi,
ja stimmt danke dir / euch allen.. habe es mit eurere hilfe hinbekommen, also schonmal das Problem :-)
Also mit dem Code funktioniert es..
procedure TForm1.Button114Click(Sender: TObject);
var was:string;
begin
IF (pos('MH',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0) AND (pos('11:45',string(webBrowser1.OleObject.Document.Body.InnerHtml))=0) THEN
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
Habe jetzt mal ein bisschen rumprobiert und glaube die lösung gefunden zu haben, zwar noch nicht so wie ich es haben will, aber so müßte es gehen
jetzt auch mit Tags ;-)
procedure TForm1.Button112Click(Sender: TObject);
var was:string;
begin
if pos('11:45', string(webBrowser1.OleObject.Document.Body.InnerHtml))=0 then
showmessage('nein')
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
procedure TForm1.Button111Click(Sender: TObject);
begin
if VarIsNull(WebBrowser1.OleObject.Document.documentElement.innerHTML('TelefonAnlagen'))
then
showmessage('test')
end;
auch dieser Code funktioniert leider nicht, es kommt dann Nicht implementiert
-
Forum: Netzwerke
by klaus9,
8. Jan 2012
procedure TForm1.Button107Click(Sender: TObject);
begin
if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('<td>TelefonAnlagen</td>')) and
if VarIsNull(WebBrowser1.OleObject.Document.innerHTML ('11:59'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('eingabe').value:='fertig'; // soll er diese funktion ausführen.
end;
-
Forum: Netzwerke
by klaus9,
7. Jan 2012
Hallo,
vielen Dank, das eigentliche Problem habe ich mit deiner Hilfe hinbekommen.
Derzeit bin ich noch nach nem anderem am schauen, jetzt habe ich an einer anderen Stelle das Problem ich muß
nach zwei Werten aus der Innerhtml suchen, da bin ich zurzeit am herum probieren.
aber mit
procedure TForm1.Button107Click(Sender: TObject);
-
Forum: Netzwerke
by klaus9,
26. Dez 2011
ich glaub ich habe es, es lag im selben verzeichnis eine variants.pas :-(
habe jetzt alles im grünen Bereich, nur er schreibt mir in das erledigt feld erledigt rein, obwohl es operation nicht text gibt.
Oder kann man irgendwie anders delphi sagen, er soll im HTML Quelltext nach bestimmten Wert suchen und wenn dieser gefunden wird, soll er in das Feld bemerkung "erledigt" schreiben ?
...
-
Forum: Netzwerke
by klaus9,
26. Dez 2011
Wie meinst du das ?
unit Unit1versuch;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, StdCtrls, mshtml, ExtCtrls, Buttons, ActnList,
Variants;
-
Forum: Netzwerke
by klaus9,
26. Dez 2011
Bei mir sind folgende Uses
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, StdCtrls, mshtml, ExtCtrls, Buttons, ActnList,
Variants;
-
Forum: Netzwerke
by klaus9,
26. Dez 2011
Hi also ich habe das Problem jetzt glaub ich an einer anderen stelle, die variants habe ich drin im delphi.
Jetzt schreibt mir Delphi als fehler bei folgendem Code
procedure TForm1.Button65Click(Sender: TObject);
begin
if not VarIsNull(WebBrowser1.OleObject.document.forms.item(0).elements.item('Operation'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme...
-
Forum: Netzwerke
by klaus9,
25. Dez 2011
Hi,
was muß ich da denn reinschreiben, bin nicht mehr so ganz fit in delphi.
-
Forum: Netzwerke
by klaus9,
25. Dez 2011
Habe jetzt folgenden Code
procedure TForm1.Button65Click(Sender: TObject);
begin
if not VarIsNull(WebBrowser1.OleObject.document.forms.item(0).elements.item('Operation'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;
end;
-
Forum: Netzwerke
by klaus9,
25. Dez 2011
hmm bekomme ich irgendwie nicht so hin.. :(
-
Forum: Netzwerke
by klaus9,
25. Dez 2011
Danke aber irgendwie fehlt mir noch was im code.
procedure TForm1.Action20Execute(Sender: TObject);
begin
if not VarIsNull(WebBrowser1.OleObject.document.forms.item(0).elements.item('Operation')) then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;
end.
-
Forum: Netzwerke
by klaus9,
24. Dez 2011
Hallo,
ich würde gerne folgendes ermöglichen mit Delphi.
Ich habe einen Twebbrowser und würde gerne wenn im Quelltext ein bestimmter Text vorkommt,
das Delphi dann einen value Wert in ein bestimmtes Feld einfügt und weitermacht.
procedure TForm1.Action20Execute(Sender: TObject);
begin
