TWebbrowser Werte in Lable.Caption darstellen

[cobus_tschulz]

Hallo zusammen,

ich bin noch recht neu hier unterwegs und brauche einmal Hilfe.
Ich bin dabei ein kleines Tool zu schreiben wo ich Eingabewerte einer TEdit Übergebe und mittels TWebbrowse anzeigen lasse.

Klappt auch soweit gut.

Jetzt bekomme ich die Seite angezeigt jedoch brauche ich einen Wert der auf der Seite steht in einem lable.caption bez. geht auch TEdit.

Folgenes bekomme ich im TWebbrowse als Quelltext:

Delphi-Quellcode:

<params>
<param>
<value><array><data>
<value><string>UstId_1</string></value>
<value><string></string></value>
</data></array></value>
</param>
<param>
<value><array><data>
<value><string>ErrorCode</string></value>
<value><string>215</string></value>
</data></array></value>
</param>

Davon brauche ich nur ErrorCode und den Wert (in diesem Fall 215) dieser kann sich aber ändern.

Und so öffne ich den TWebbrowser:

Delphi-Quellcode:

procedure TTFrmMain.btnAnfrageSendenClick(Sender: TObject);
begin
csWeb.Navigate('http://evatr.bff-online.de/evatrRPC?UstId_1='+eUSTID1.Text+
            '&UstId_2='+eUSTID2.Text+
            '&Firmenname='+eFirmenname.Text+
            '&Ort='+eOrt.Text+
            '&PLZ='+ePlz.Text+
            '&Strasse='+eStrasse.Text+
            '&Druck='+eDruck.Text);

end;

end.

Vielen Dank euch schonmal !!!
Und denkt dran .. bin total neu hier :))) Nicht gleich erschlagen :) lach ...

[toms]

Herzlich willkommen in der Delphi-PRAXiS !

1. Quelltext auslesen (Beispiele finden sich in der DP), 2. per Pos, Copy, etc. den String herausschneiden.
Falls die Inhalte der Webseite sonst visuell nicht dargestellt werden müssen, würden sich die Indy Komponenten besser eignen.

[cobus_tschulz]

Vielen Dank dafür, jedoch scheitert es schon an dem Auslesen des Quelltextes. Ich bekomme immer einen Fehler.

Hier der Code schonmal:

Delphi-Quellcode:

unit uCSUSTIDtools;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX, ExtCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,StrUtils ;

type
  TTFrmMain = class(TForm)
    eUSTID1: TEdit;
    eUSTID2: TEdit;
    eFirmenname: TEdit;
    eOrt: TEdit;
    ePLZ: TEdit;
    eStrasse: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    btnAnfrageSenden: TButton;
    csWeb: TWebBrowser;
    cmbDrucken: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    eRGueltigAb: TEdit;
    Label11: TLabel;
    eRGueltigBis: TEdit;
    Label12: TLabel;
    eRFirmenname: TEdit;
    Label13: TLabel;
    eROrt: TEdit;
    Label14: TLabel;
    eRPLZ: TEdit;
    Label15: TLabel;
    eRStrasse: TEdit;
    Button1: TButton;
    eRAnfrangeAm: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    eRAnfrageUm: TEdit;
    Label18: TLabel;
    eRErrorCode: TEdit;
    Panel1: TPanel;
    Label19: TLabel;
    Label20: TLabel;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure btnAnfrageSendenClick(Sender: TObject);
  private
  public
    { Public-Deklarationen }
  end;

var
  TFrmMain: TTFrmMain;

implementation

uses
  mshtml;

{$R *.dfm}

// CEigene
function WB_GetHTMLCode(WebBrowser: TWebBrowser; 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;

procedure TTFrmMain.btnAnfrageSendenClick(Sender: TObject);
var
htmlcode: string;
begin
csWeb.Navigate('http://evatr.bff-online.de/evatrRPC?UstId_1='+eUSTID1.Text+
            '&UstId_2='+eUSTID2.Text+
            '&Firmenname='+eFirmenname.Text+
            '&Ort='+eOrt.Text+
            '&PLZ='+ePlz.Text+
            '&Strasse='+eStrasse.Text+
            '&Druck='+cmbDrucken.Text);

WB_GetHTMLCode(csWeb, Memo1.Lines);

end;


end.

Der Fehler kommt hier:

Delphi-Quellcode:

 Result := Succeeded(ps.Save(sa, True));

Das hier ist die Fehlermeldung dann:
---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt pUSTIDTool.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 004BD4AA in Modul 'pUSTIDTool.exe'. Lesen von Adresse 00000000' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

[Matze]

Hallo,

ich würde auch die erwähnten Indy-Komponenten nutzen. Dein WebBrowser ist aktuell sicher versteckt, oder? Das wäre sehr schlampig und langsam.

Mit den Indys geht das ganz einfach. Das folgende Beispiel zeigt die dynamische Erzeugung von TIdHTTP. Du kannst diese Komponente aber auch auf dein Formular ziehen und verwenden.

Delphi-Quellcode:

var
  MyIdHTP: TIdHTTP;
  HTMLCode: string;

// ...

MyIdHTTP := TIdHTTP.Create;
try
  HTMLCode := MyIdHTTP.Get('deine URL');
finally
  FreeAndNil(MyIdHTTP);
end;

Grüße, Matze

[cobus_tschulz]

Danke Matze,

läuft super und auch schnell in das memo1.text Feld rein.

Jetzt muss ich nur noch wie oben beschrieben die Daten auslesen des Error_Code und die Zahl dazu.
Mit PosEx() wurde schon genannt, jedoch frag ich mich gerade wo genau ich den Ansatz habe das ich genau die Stelle rausbekomme und in ein TEdit Feld den Wert reinbekomme

[cobus_tschulz]

So ich habs rausbekommen mit Copy geht das recht gut.
Jedoch gebe ich dort ja statische Positionswerte an.

Ich bräuchte sowas wie "Suche nach PLZ" dann zähle 10 zeilen weiter... nimm ab dort die kommenden 3 zeichen und schreib mir die ins TEdit feld...

[nahpets]

Hallo,

wenn Du dasda hast:

Code:

<params> 
<param> 
<value><array><data> 
<value><string>UstId_1</string></value> 
<value><string></string></value> 
</data></array></value> 
</param> 
<param> 
<value><array><data> 
<value><string>ErrorCode</string></value> 
<value><string>215</string></value> 
</data></array></value> 
</param>

ersetze zuerst alle < und > durch einen Zeilenumbruch und < bzw. Zeilenumbruch und >.
Danach hast Du dann:

Code:

<params> 
<param> 
<value>
<array>
<data> 
<value>
<string>
UstId_1
</string>
</value> 
<value>
<string>
</string>
</value> 
</data>
</array>
</value> 
</param> 
<param> 
<value>
<array>
<data> 
<value>
<string>
ErrorCode
</string>
</value> 
<value>
<string>
215
</string>
</value> 
</data>
</array>
</value> 
</param>

Nun lösche von "unten" beginnend alle Zeilen, die mit < beginnen und Du erhälst:

Code:

UstId_1
ErrorCode
215

Jetzt suchst Du noch die Zeile mit dem Text ErrorCode und nimmst aus der nächsten Zeile den gewünschten Wert.

[cobus_tschulz]

hmmm ... hört sich logisch an nur mit der Umsetztung scheiert es gerade :))) nen kleenen Codeschnippsel ? :))))

[nahpets]

Hallo,

Zeichenfolgen ersetzen geht z. B. mit:

Delphi-Quellcode:

memo.text := AnsiReplaceText(Memo.Text,'<',#13 + '<')

Damit hast Du aus dem < einen Zeilenvorschub plus < gemacht.

Zeilen Löschen könnte in etwa so gehen:

Delphi-Quellcode:

for i := Memo.Lines.Count - 1 DownTo 0 do if Copy(memo.lines[i],1,1) = '<' then memo.lines.Delete(i);

Wenn Du statt des Memos eine TStringList (oder Nachfahren) benutzt, dann kannst Du die Zeile mit dem Text ErrorCode über

Delphi-Quellcode:

Position := Stringliste.IndexOf('ErrorCode')

erhalten und den ErrorCode selbst dann mit

Delphi-Quellcode:

ErrorCode := Stringliste.IndexOf('ErrorCode') + 1

Alles ungetestet nur hingedaddelt.

[DeddyH]

2 Verbesserungsvorschläge:

Delphi-Quellcode:

Memo.Text := {StrUtils.}AnsiReplaceText(Memo.Text,'<',sLineBreak + '<');

Delphi-Quellcode:

for i := Memo.Lines.Count - 1 DownTo 0 do 
  if (Trim(memo.lines[i]) = '') or (Trim(memo.lines[i])[1] = '<') then 
    memo.lines.Delete(i);

Auch nur heruntergetippt und nicht getestet.

[cobus_tschulz]

Soweit super .. jedoch löscht er jetzt alles raus weil im Memo.Text jetzt es so steht

Delphi-Quellcode:

<string>ErrorCode

In einer Zeile und nicht

Delphi-Quellcode:

<string>
ErrorCode

Deshalb löscht das Ding nun auch den ErrorCode raus .
Wie bekomme ich das hin das entweder ErrorCode runtergesetzt wird nach dem <String> oder er wirklich nur <string> löscht.

[nahpets]

Hallo,

< und > ersetzen und nicht nur <

[cobus_tschulz]

Öhmn okay ... wo denn ? :) *dummfrag* ;)

[DeddyH]

Delphi-Quellcode:

Memo.Text := AnsiReplaceText(Memo.Text,'<',sLineBreak + '<');
Memo.Text := AnsiReplaceText(Memo.Text,'>','>' + sLineBreak);

Oder alles auf einmal:

Delphi-Quellcode:

Memo.Text := AnsiReplaceText(AnsiReplaceText(Memo.Text,'<',sLineBreak + '<'),'>','>' + sLineBreak);

[user0815]

Ich würde das so machen...

Delphi-Quellcode:

var
  i : Integer;
  Code : String;
begin
  Code := '';

  for i := Memo1.Lines.Count - 1 downto 0 do
  if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
  begin
    Code := Memo1.Lines.Strings[i + 1];
    Code := StringReplace(Code, '/', '', [rfReplaceAll]);
    Code := StringReplace(Code, '<value>', '', [rfReplaceAll]);
    Code := StringReplace(Code, '<string>', '', [rfReplaceAll]);
    break;
  end;

  ShowMessage(Code);

[cobus_tschulz]

Danke schonmal dafür, jedoch löscht er jetzt ALLES raus :)))
und lässt nicht die Feldwerte stehen :/(

[DeddyH]

Dann zeig doch einmal den aktuellen Code.

[cobus_tschulz]

Hier der ganze Code ... hab nen bisschen auskommentiert und so was ich mal probiert hatte also davon nicht stören lassen

Delphi-Quellcode:

unit uCSUSTIDtools;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, ActiveX, ExtCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,StrUtils ;

type
  TTFrmMain = class(TForm)
    eUSTID1: TEdit;
    eUSTID2: TEdit;
    eFirmenname: TEdit;
    eOrt: TEdit;
    ePLZ: TEdit;
    eStrasse: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    btnAnfrageSenden: TButton;
    cmbDrucken: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    eRGueltigAb: TEdit;
    Label11: TLabel;
    eRGueltigBis: TEdit;
    Label12: TLabel;
    eRFirmenname: TEdit;
    Label13: TLabel;
    eROrt: TEdit;
    Label14: TLabel;
    eRPLZ: TEdit;
    Label15: TLabel;
    eRStrasse: TEdit;
    Button1: TButton;
    eRAnfrangeAm: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    eRAnfrageUm: TEdit;
    Label18: TLabel;
    eRErrorCode: TEdit;
    Panel1: TPanel;
    Label19: TLabel;
    Label20: TLabel;
    IdHTTP1: TIdHTTP;
    lErrorCode: TLabel;
    Memo1: TMemo;
    procedure btnAnfrageSendenClick(Sender: TObject);
  private
  public
    { Public-Deklarationen }
  end;

var
  TFrmMain: TTFrmMain;

implementation

uses
  mshtml;

{$R *.dfm}

// CEigene
function WB_GetHTMLCode(WebBrowser: TWebBrowser; 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;


procedure TTFrmMain.btnAnfrageSendenClick(Sender: TObject);
var
  MyIdHTTP: TIdHTTP;
  HTMLCode: string;
  kompletterCode :string;
  RError,RGueltigBis,RGuelitgAb,RAnfrageAm,RAnfrageUm :string;
  s: String;
  errorcode: string;
  i: integer;

begin

// Abfrage der Felder für die Eingabe die dürfen nicht leer sein
    (*
    If (eUSTID1.text = '')  or (eUSTID2.text = '')
                              or (eFirmenname.text = '')
                              or (eOrt.text = '')
                              or (ePlz.text = '')
                              or (eStrasse.text = '')
                              or (cmbDrucken.text = '') then
          begin
            showmessage('Die Eingabe weist Fehler auf. Bitte prüfen Sie die Eingabe.');
            exit;
          end;

  *)


// Anfrage zur USTID Seite stellen und in das Memo1 Feld schreiben.
MyIdHTTP := TIdHTTP.Create;
try
  HTMLCode := MyIdHTTP.Get('http://evatr.bff-online.de/evatrRPC?UstId_1='+eUSTID1.Text+
            '&UstId_2='+eUSTID2.Text+
            '&Firmenname='+eFirmenname.Text+
            '&Ort='+eOrt.Text+
            '&PLZ='+ePlz.Text+
            '&Strasse='+eStrasse.Text+
            '&Druck='+cmbDrucken.Text);

memo1.Text := HTMLCode;
for i := Memo1.Lines.Count - 1 downto 0 do
  if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
  begin
    Memo1.text := Memo1.Lines.Strings[i + 1];
    Memo1.text := StringReplace(memo1.Text, '/', '', [rfReplaceAll]);
    Memo1.text := StringReplace(memo1.Text, '<value>', '', [rfReplaceAll]);
    Memo1.text := StringReplace(memo1.Text, '<string>', '', [rfReplaceAll]);
    break;
  end;

  ShowMessage(memo1.text);


           // memo1.text := {StrUtils.}AnsiReplaceText(HTMLCode,'<',sLineBreak + '<');

//for i := Memo1.Lines.Count - 1 DownTo 0 do
//  if (Trim(memo1.lines[i]) = '') or (Trim(memo1.lines[i])[1] = '<') then
//    memo1.lines.Delete(i);

//s := AnsiReplaceText(HTMLCode,'<',#13 + '<');
//ErrorCode := s.IndexOf('ErrorCode') + 1  ;

  //ShowMessage(memo1.text);

(*

    s := HtmlCode;
    // Hinweiss hier: 1. Zahl ist AB Zeichen und 2. Zahl ist WIEVIELE zeichen
    RError := Copy(s, 231, 3);
    RGuelitgAb := Copy(s, 1582,3);
    RGueltigBis := Copy(s, 1582,3);
    RAnfrageAm := Copy(s, 905,10);
    RAnfrageUm := Copy(s, 1316, 8);

    // Fehlercodes umwanden in Texte . Fehlercodes stehen auf [url]http://evatr.bff-online.de/eVatR/xmlrpc/codes[/url]
    RError := StringReplace(RError, '215', 'Ihre Anfrage enthält nicht alle notwendigen Angaben für eine einfache Bestätigungsanfrage (Ihre deutsche USt-IdNr. und die ausl. USt-IdNr.).Ihre Anfrage kann deshalb nicht bearbeitet werden. ', [rfReplaceAll, rfIgnoreCase]);
    RError := StringReplace(RError, '200', 'Die angefragte USt-IdNr. ist gültig. ', [rfReplaceAll, rfIgnoreCase]);

    eRErrorCode.Text := RError;
    lErrorCode.Caption := RError;
    eRGueltigAb.Text :=  RGuelitgAb;
    eRAnfrangeAm.Text := RAnfrageAm;
    eRAnfrageUm.Text := RAnfrageUm;

    // Umwandeln der Codes in Werte
    // s := HtmlCode;
    // s := StringReplace(s, '215', 'Falscher Wert', [rfReplaceAll, rfIgnoreCase]);
    // ShowMessage(s);


*)

finally
  FreeAndNil(MyIdHTTP);

end;

end;


end.

[DeddyH]

Zitat:

Delphi-Quellcode:

for i :=  Memo1.Lines.Count - 1 downto 0 do
  if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
  begin
    Memo1.text := Memo1.Lines.Strings[i + 1];

Abgesehen davon, dass Du u.U. auf eine nicht existente Zeile zugreifst, ersetzt Du hier den ganzen Text des Memos mit der einen Zeile.

[himitsu]

Ist eigentlich schon jemandem aufgefallen, daß es hier stark nach XML/RPC riecht?

[cobus_tschulz]

Also nur zu Info.
Ich steuere diese Schnittstelle an :http://evatr.bff-online.de/eVatR/xmlrpc/schnittstelle
und das ist eine XML-RPC ja !

[himitsu]

War ja nur als Hinweis auf etwas:
- hier versucht man grade eine XML-Datei mit 'ner Stringliste zu verarbeiten ... warum also nicht einfach als XML behandeln?

[DeddyH]

Nun verlink schon Dein komisches himxml, damit es Ruhe hat :tongue:

[cobus_tschulz]

Kann mir denn nu keiner hier helfen wie ichs machen kann ?!? :-( *hilföööö*

[p80286]

Zitat:

Zitat von DeddyH

Zitat:

Delphi-Quellcode:

for i :=  Memo1.Lines.Count - 1 downto 0 do
  if AnsiPos('ErrorCode', Memo1.Lines.Strings[i]) > 0 then
  begin
    Memo1.text := Memo1.Lines.Strings[i + 1];

Abgesehen davon, dass Du u.U. auf eine nicht existente Zeile zugreifst, ersetzt Du hier den ganzen Text des Memos mit der einen Zeile.

Das war doch eigentlich deutlich!?

oder nicht??

Gruß
K-H

[cobus_tschulz]

Klar war das eindeutig funktioniert aber nicht.
Das memo1.text ist komplett geleer und ich habe keine Inhalte darin.