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 ...