4. CppWebBrowser Probleme

CppWebBrowser Probleme

  • P

    @Th69:

    Danke für die schnelle Antwort.

    Das habe ich versucht, leider ohne Erfolg 😞

    Ich habe mir eine CppWebBrowser Komponente ins Form gezogen und das Event generiert. Dann hab ich in der Header Datei den Namen des Events umbenannt und auch in der Cpp.

    Beispiel

    void __fastcall TForm1::EvtDocumentComplete(TObject *Sender,
      LPDISPATCH pDisp, Variant *URL)
{
  // ... hier der Code der ausgeführt werden soll
  FillElement(...);
  AutoSubmitForm(...); 
}

    Danach hab ich die Komponente auf der Form wieder gelöscht.

    Wenn ich jetzt der dynamischen CppBrowser Komponente b1

    b1->onDocumentComplete = EvtDocumentComplete;

    das Event zuweise, bekomm ich Errors beim Compilieren, das irgendwelche Parameter nicht kompatibel sind.

    0

  • Zeig mal die genaue Fehlermeldung.

    So wie du es jetzt beschrieben hast, sollte es eigentlich klappen.

    0
  • P

    Ok ich muss es noch mal nachstellen, da ich es wieder gelöscht habe.

    Sobald ich es habe melde ich dir die Fehlermeldung.

    Danke schon mal im voraus 🙂

    0
  • P

    So,

    hab es gerade nochmal mit einem Mini Beispiel getestet :

    Header Datei :

    #ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "shdocvw_ocx.h"
#include <OleCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-verwaltete Komponenten
        void __fastcall EvtTest(TObject *Sender, LPDISPATCH pDisp, Variant *URL);
private:	// Benutzer Deklarationen
public:		// Benutzer Deklarationen
	__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

    CPP

    #include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "shdocvw_ocx"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
  TCppWebBrowser *w1 = new TCppWebBrowser(Form1);
  w1->Width = 600;
  w1->Height = 500;
  w1->Top = 10;
  w1->Left = 50;
  w1->Visible = true;
  w1->Navigate((WideString)"www.google.de");
  w1->OnDocumentComplete = EvtTest;
  Form1->InsertControl (w1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EvtTest(TObject *Sender, LPDISPATCH pDisp, Variant *URL)
{
  Beep();
}
//---------------------------------------------------------------------------

    Fehlermeldung :

    [BCC32 Fehler] Unit1.cpp(23): E2034 Konvertierung von 'void (_fastcall * (_closure )(TObject *,IDispatch *,Variant *))(TObject *,IDispatch *,Variant *)' nach 'TCppWebBrowserDocumentComplete' nicht möglich

    0

  • Das scheint bei dir ein ähnliches Problem wie unter http://www.delphigroups.info/3/3/5270.html zu sein, d.h. probiere mal statt "LPDISPATCH pDisp, Variant *URL":

    void __fastcall TForm1::EvtTest(TObject *Sender, const _di_IDispatch pDisp, OleVariant &URL)

    Wenn nicht, dann mal einfach in die zug. Header-Datei "SHDocVw.hpp" von deinem Builder schauen (welche Version verwendest du denn?).

    Hat denn das Kompilieren geklappt, als du die Komponente direkt benutzt hast (d.h. dessen DocumentComplete-Event erzeugt hast)???

    0
  • P

    Hallo,

    den Artikel hab ich auch gefunden, als ich nach der Fehlermeldung gegoogelt habe.

    Leider hat das Ändern in

    const _di_IDispatch pDisp

    nichts gebracht. Ich benutze das RAD-Studio 2007.

    Aber ich schaue mir die Header Datei mal an.

    Danke für deine Hilfe 🙂

    0

  • Poste dann bitte deine Lösung (falls es geklappt hat).

    0
  • Y

    Versuchs mit dieser Funktion.
    In meinen Augen ist das so wesentlich sauberer (und schneller).

    void WebPostData(TCppWebBrowser *CppWebBrowser, String sURL, String sPostData)
{
  BSTR bstrHeaders = NULL;
  TVariant vFlags = {0}, vTargetFrameName={0}, vPostData={0}, vHeaders={0};
  LPSAFEARRAY psa;
  LPCTSTR cszPostData = sPostData.c_str();
  UINT cElems = lstrlen(cszPostData);
  LPSTR pPostData;
  LPVARIANT pvPostData;

  bstrHeaders = SysAllocString(L"Content-Type: application/x-www-form-urlencodedrn");
  if (!bstrHeaders){
    Application->MessageBox("Could not allocate bstrHeaders", "Warning", MB_OK | MB_ICONWARNING);
    return;
  }

  V_VT(&vHeaders) = VT_BSTR;
  V_BSTR(&vHeaders) = bstrHeaders;

  pvPostData = vPostData;

  if(pvPostData){
    VariantInit(pvPostData);

    psa = SafeArrayCreateVector(VT_UI1, 0, cElems);
    if(!psa){
      return;
    }

    SafeArrayAccessData(psa, (LPVOID*)&pPostData);
    memcpy(pPostData, cszPostData, cElems);
    SafeArrayUnaccessData(psa);

    V_VT(pvPostData) = VT_ARRAY | VT_UI1;
    V_ARRAY(pvPostData) = psa;
  }

   CppWebBrowser->Navigate((TVariant)sURL, &vFlags, &vTargetFrameName, &vPostData, &vHeaders);
}
    0
  • P

    @Yuri:
    Diese Funktion kenn ich auch, war mein erster Versuch. Nur leider funktioniert es nicht ganz.

    Bei einer Abfrage füllt er die Felder aus, submittet mein WebForm aber leider nicht. Wieso und weshalb weiß ich nicht 😞

    0
  • Y

    Möglicherweise falsche Parameter eingegeben.
    Wie benutzt du denn die Funktion?

    0
  • P

    Wie ich sie Benutze :

    also ich hab ein Web-Formular

    <form action="result.asp" method="POST" name="form">
 <table border="0">
 <TR>
 <TD nowrap><B>Vorname:&nbsp;</B><input type="text" size="10" name="Vorname_f"   onFocus="init_vorname()" VALUE="">&nbsp;&nbsp;&nbsp;&nbsp;
<B>Nachname:&nbsp;</B><input type="text" size="10" name="Nachname_f"  onFocus="init_nachname()" VALUE="">
</TD>
</TR>
</table>
<BR>
<table border="0">
<TR>
<TD nowrap><input type="submit" name="Absenden" value="Absenden"></TD>
</TR>
</table>
</form>

    Dieses ruf ich dann mit

    WebPostData(CppWebBrowser1,"http://myserver/mysite.php","Vorname_f=Max&Nachname_f=Mustermann");

    auf.

    Das in action aufgerufene Skript

    <form action="result.asp" method="POST" name="form">

    lässt sich leider auch nicht direkt nutzen.

    z.b. mit http://myserver/result.asp?Vorname_f=Max&Nachname_f=Mustermann

    die seite wird zwar aufgerufen aber die parameter nicht übergeben

    0
  • Y

    PsiAgent schrieb:

    z.b. mit http://myserver/result.asp?Vorname_f=Max&Nachname_f=Mustermann

    Das ist auch ein GET - Request.

    Versuchs so:
    WebPostData(CppWebBrowser1,"http://myserver/result.asp","Vorname_f=Max&Nachname_f=Mustermann");

    0
  • P

    Hey Klasse !!!!

    Das hat funktioniert :-))))

    Danke !!!

    0
Anmelden zum Antworten