TWebBrowser < undefinierter Bezeichner

[endeffects]

Hallo,

ich möchte in einem Thread den TwebBrowser dynamisch erzeugen,
allerdings meckert der Compiler das TWebBrowser ein undefinierter
Bezeichner wäre.

Delphi-Quellcode:

uses
  Classes, SysUtils;
...

procedure TMyThreads.Grabber(Keyword: String; FFirstStep: Integer);
var
  WebBrowser: TWebBrowser;
begin
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do
   try
    except
        //nix
    end;

  FreeAndNil(WebBrowser);
end;

Die Uses hatte ich auch schon einmal erweitert

Delphi-Quellcode:

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

Jemand eine Idee?

[Alexander]

Du musst noch die entsprechende Unit einbinden. SHDocVw_TLB müsste die richtige sein...

[scp]

Du musst entweder die Unit ShDocVw (ab Professional) oder ShDocVw_TLB (bei Personal, wenn selbst importiert) einbinden.

[endeffects]

oh danke =)

[endeffects]

hmm ein kleines problem hab ich nun aber trotzdem noch,
wenn ich über .navigate eine webseite laden möchte
wird diese ohne sleep(); nur teilweise oder gar nicht
geladen. kann man dazu irgendwo einen timeout setzen?

Delphi-Quellcode:

procedure TMyThreads.Grabber();
var
  WebBrowser: TWebBrowser;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do
    try
      WebBrowser.Navigate('http://test.com');
      sleep(2000);
    except
        //nix
    end;
  FreeAndNil(WebBrowser);
  OleUninitialize;
end;

[Matze]

Neue Frage, neuer Thread!

Zitat:

Zitat von endeffects

Delphi-Quellcode:

with WebBrowser do
    try
      WebBrowser.Navigate('http://test.com');
      sleep(2000);
    except
        //nix
    end;

Wenn du schreibst

Delphi-Quellcode:

with WebBrowser do

dann kannst du nachher nur "Navigate('...');" schreiben, ohne vorangestelltes "WebBrowser". ;)


Und "sleep" friert das ganze Programm ein, schau lieber mal nach delay

Delphi-Quellcode:

try

...

except
  //nix
end;

Sollte man auch nicht verwenden, siehe dazu hier Punkt 1.



Du kannst auch warten, bis die Seite komplett geladen ist, mittels:

Delphi-Quellcode:

procedure TForm1.wbNavigateComplete2(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant); 
const 
  url_google = 'http://www.google.de'; 
begin 
  cbWeb.Text := lower(wb.OleObject.Document.Url); 

  if (cbWeb.Text = url_google) or (cbWeb.Text = url_google + '/') then begin 
    ShowMessage(cbWeb.Text + ' wurde geladen'); 
  end; 
end;

Edit: Ein paar Tippfehler verbessert.

[endeffects]

oh danke für die hilfe,
ich werd versuchen zukünftig deine ratschläge zu beherzigen =)
eine frage hab ich allerdings trotzdem noch *gg*

wenn ich versuche in einem thread ein formular (z.b. google.com) auszufüllen
dann gibt es eine zugriffverletzung an dieser stelle:

Delphi-Quellcode:

WebBrowser.OleObject.Document.forms.Item(0).Item('g').Value := 'internet';

Exception der Klasse EAccessViolation

[endeffects]

also ich hab nun versucht zu prüfen ob
überhaupt ein formular existiert das ich ausfüllen
kann, auch hier erhalte ich eine zugriffsverletzung
wenn der thread versucht auf das OLE Objekt zu zugreifen.

Delphi-Quellcode:

  if OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;

das selbe problem stellt sich bei mir auch da wenn ich
zum testen eine neue anwendung erzeuge

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShDocVw, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var wb: TWebBrowser;
begin
  wb := TWebBrowser.Create(Form1);
  TWinControl(wb).Name := 'MyWebBrowser';
  TWinControl(wb).Parent := Form1;
  wb.Align := alClient;
  wb.Navigate('http://www.google.com');
  sleep(2000);
  if wb.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end
  else
  showmessage('found');
  end;

end.

[endeffects]

ich versteh das einfach nicht, nun les ich mich seit stunden
durch foren, newsgroups und artikel und hab diverese
sourcecodes ausprobiert, aber jedesmal wenn ich auf
auf ole objekt zugreifen will gibts den fehler

das ist echt zum kotzen :wall:

[Matze]

:warn: Pushen ist erst nach 24 Stunden erlaubt :dp:

[endeffects]

naja eigentlich wollte ich damit nix pushen,
fehlt auch irgendwie die hälfte bei dem posting

ich hatte das ganze nun wie folgt ausprobiert, aber
ich häng noch immer an der selben stelle

Delphi-Quellcode:

unit Unit1;

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ShDocVw, StdCtrls, activex;

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);
var wb: TWebBrowser;
begin
  wb := TWebBrowser.Create(Form1);
  TWinControl(wb).Name := 'MyWebBrowser';
  TWinControl(wb).Parent := Form1;
  wb.Align := alClient;
  wb.Navigate('http://www.google.com');
  sleep(2000);
  wb.OleObject.document.forms.item(0).elements.item('q').value:='test';

  end;

end.

[Basic-Master]

ersetz das sleep(2000); durch

Delphi-Quellcode:

while wb.ReadyState <> READYSTATE_COMPLETE do
  Application.ProcessMessages;

mit sleep hälst du nur den prozess (mainthread) an, das hilft dir dann aber auch nix wenn die seite noch net geladen ist...

[endeffects]

hallo, danke für die hilfe, das sleep hier eher unangebracht ist war mir schon
klar, das dadurch allerdings diese zugriffsverletzung verursacht wird ist mir neu,

wie zu erwarten war funktioniert der aufruf Application.ProcessMessages;
in den threads nicht der einbau von OnDocumentComplete ist mir auch ein rätsel

Delphi-Quellcode:

procedure TMyThreads.Grabber();
var
  WebBrowser: TWebBrowser;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do
    try
      Navigate('http://www.google.com');
      OnDocumentComplete:= //??????  OleObject.Document.Forms.item(0).submit; ??????///

    except
        //nix
    end;
  Fstatus:= 'done.';
  Synchronize(UpdateLVCaption);
  FreeAndNil(WebBrowser);
  OleUninitialize;
end;

[endeffects]

also ich hab nun nochmal ne ganze weile rumprobiert
und mittlerweile echt genervt von dem kram =(

Delphi-Quellcode:

procedure TMyThreads.Execute();
var
  WebBrowser: TWebBrowser;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);

  with WebBrowser do
    try
      Navigate('http://www.google.com');

      while ReadyState <> READYSTATE_COMPLETE do
      Application.ProcessMessages;

      OleObject.document.forms.item(0).elements.item('q').value:='test';
      OleObject.Document.Forms.item(0).submit;
    except
        
    end;
  FreeAndNil(WebBrowser);
  OleUninitialize;
end;

Der Aufruf von Application.ProcessMessages; funktioniert in
dem Thread nicht und mit einer Delay Funktion aus diesem
Forum wird die while Schleife nie verlassen.

der Ansatz mit Hilfe von ReadyStats <> Readystats_Complete klingt ja
vielversprechend, aber wie kann damit im besagten Thread
auf ein positives Ergebnis warten bzw wie kann man Delphi
veranlassen auf das Eintreten des OnDocumentComplete Events zu warten.

[shmia]

Delphi-Quellcode:

var 
  WebBrowser: TWebBrowser; 
begin 
  WebBrowser:= TWebBrowser.Create(nil); 
  with WebBrowser do 
     // irgendwas tun
  end; 

  FreeAndNil(WebBrowser); 
end;

Also ich würde auf keinen Fall das Objekt WebBrowser dynamisch zu Laufzeit erzeugen,
damit arbeiten und gleich wieder zerstören.
Hinter dem WebBrowser stecken sehr viele DLLs, Schnittstellen, Resourcen, ....
Deshalb sollte man das Ding nur einmal erzeugen und erst dann zerstören, wenn auch das
Formular zerstört wird.
Vielleicht ist Navigate noch nicht ganz fertig und du ziehst dem BrowserObjekt
sozusagen den Stuhl unterm Hinern weg.

[endeffects]

naja, wie gesagt, das ganze läuft in threads,
ich denke da läßt sich das erzeugen wärend
der laufzeit nicht vermeiden

leider hast du recht damit das navigate(); nicht ausreichend
zeit bekommt um die aufgerufene seite vollständig zu laden,
da ich nicht weiß wie ich bei einem dynamisch erzeugten
twebbrowser auf das event OnDocumentComplete reagieren
kann bzw es einzubinden habe - oder "ReadyState <> READYSTATE_COMPLETE"
in die warteschleife schicken

aber leider konnte ich dazu bisher nichts finden

[Basic-Master]

hab die funktion hier im forum gefunden, das könntest du dann statt Application.ProcessMessages; nehmen:

Delphi-Quellcode:

procedure ProcessMessages(hWnd: DWORD);
var 
  Msg: TMsg;
begin 
while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg); 
end; 
end;

musst dann als parameter einfach Handle einsetzen..
hoffe konnte dir damit n bischen helfen :|

[endeffects]

ich weiß nicht ob ich bei der ganzen geschichte etwas
falsch verstehe, aber eigentlich macht es doch keinen
unterschied ob ich den twebbrowser wärend der laufzeit
erzeuge oder statisch, ich müßte doch trotzdem events
wie ondocumentcomplete nutzen können
oder lieg ich damit völlig falsch?

[emploi]

Ist ja auch kein Problem das du das nutzen möchtest!

Gibt zwei Möglichkeiten!

1. Du übergibst deinem Thread die Application. Somit kannst du dann auch Applications.ProcessMessages benutzen. Hab ich aber nicht ausprobiert und kann ich auch nicht sagen ob das in einem Extra Thread dann genauso funktioniert, wie wenn du nur den Hauptthread hast!

2. du bist ja mit dem OnDocumentComplete garnicht mal so weit von der lösung weg!
das WebBrowser1.OnDocumentComplete benötigt nur der zuweisung einer Prozedur. Funktioniert
nach dem Schema wie im ObjektInspektor! da Klickst du ja normalerweise Doppelklick auf
"OnDocumentComplete" und Delphi erstellt dir von hand eine Prozedur und weisst
WebBrowser1.OnDocumentComplete automatisch dieser Prozedur zu. Mach du das doch einfach
von hand:

Code:

WebBrowser1.OnDocumentComplete := meineProzedurWennFertigGeladen;

Und da schreibste dann rein was er machen soll!

greetz

emploi

[endeffects]

hallo,
danke für die antwort, die variante 2 hatte ich auch schon ausprobiert,
allerdings bekomm ich dann folgende Fehlermeldung:

Zitat:

Inkompatible Typen: TwebBroswserDocumentComplete und procedure, untyped pointer
or untyped parameter.

Delphi-Quellcode:

type
  TMyThreads = class(TThread)
  private
    { Private-Deklarationen }
    ...
    procedure Submit();
    ...
  protected
    procedure Execute; override;
  ...
  end;

implementation

procedure TMyThreads.Execute;
var
  WebBrowser: TWebBrowser;
  i:integer;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do
    try
      Navigate('http://www.google.com');
      OnDocumentComplete:= Submit();
    except
        //fehlt noch
    end;
  FreeAndNil(WebBrowser);
  OleUninitialize;
end;

procedure TMyThreads.Submit;
  // Compiler-Fehler: Unbekannte Anweisung: 'OleObject'.
  OleObject.document.forms.item(0).elements.item('q').value:='test';
  OleObject.Document.Forms.item(0).submit;
end;

[Basic-Master]

Delphi-Quellcode:

type
  TMyThreads = class(TThread)
  private
    procedure Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); //deine prozedur und die andere müssen identisch sein (jedenfalls die Parameter..)!
  protected
    procedure Execute; override;
  end;

implementation

procedure TMyThreads.Execute;
var WebBrowser: TWebBrowser;
    i:integer;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do begin
    try
      Navigate('http://www.google.com');
      OnDocumentComplete:= Submit;
    except 
      //...
    end;
  end;
end;

procedure TMyThreads.Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  if URL = 'http://www.google.com' then begin
    (Sender As TWebBrowser).OleObject.document.forms.item(0).elements.item('q').value:='test';
    (Sender As TWebBrowser).OleObject.Document.Forms.item(0).submit;
  end;
end;

sollte funktionieren

[emploi]

hi,

dein problem ist wenn du der OnDocumentComplete ne Prozedur zuweist
dann musst die genau die gleiche schnittstelle haben wie die
die vom Objektinspektor automatisch generiert wird!

dh klick mal im Objektinspektor doppelklick auf das ereigniss
DocumentComplete und schau dir die Schnittstelle an!
Genau diese Schnittstelle muss deine eigene Prozedur auch haben!
dann sollte es gehen!

mfg emploi

[endeffects]

oh danke danke, damit helft ihr mir sehr weiter :)
ich hab das ganze nun dank Eurer Hilfe wie folgt
umgebaut und der compiler meckert nun auch nicht mehr.
leider tritt das OnDocumentComplete Ereignis nie ein.

Delphi-Quellcode:

procedure TMyThreads.Execute;
var WebBrowser: TWebBrowser;
    i:integer;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do
    try
      Navigate('http://www.google.com');
      Fstatus:= 'Connecting to http://google.com';
      Synchronize(UpdateLVCaption);
      OnDocumentComplete:= Submit;
    except
      FreeAndNil(WebBrowser);
      OleUninitialize;
    end;
  Fstatus:= 'finished.';
  Synchronize(UpdateLVCaption);
end;

procedure TMyThreads.Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
// Tritt leider nie ein **************************
  showmessage('Submit fired');
//************************************************
  (Sender As TWebBrowser).OleObject.document.forms.item(0).elements.item('q').value:='test';
  (Sender As TWebBrowser).OleObject.Document.Forms.item(0).submit;
  FreeAndNil(Sender);
  OleUninitialize;
end;

[endeffects]

möglicherweise endet die methode schon bevor
ondocumentcomplete ausgelöst wird

[Basic-Master]

auf showmessage würde ich mich nicht verlassen, ist soweit ich mich erinner, ne an die VCL angekoppelte funktion, die in threads net funktioniert :gruebel: :roll:

[EDIT] btw seh ich gerad das freeandnil+couninitialize in dem event.. musste weg :angel2: [/EDIT]

[emploi]

Also ich kann mir zwar nicht vorstellen das es davon abhängig ist,
aber weise mal dem OnDocumentComplete direkt nach dem erzeugen
deiner Submit Methode zu. Vielleicht geht das ja ;)

Ansonsten könnte es auch passieren das das laden der seite länger dauert...

Code:

procedure TMyThreads.Execute; 
var WebBrowser: TWebBrowser; 
    i:integer; 
begin 
  OleInitialize(nil); 
  WebBrowser:= TWebBrowser.Create(nil); 
  with WebBrowser do 
    try 
      Navigate('http://www.google.com'); 
      Fstatus:= 'Connecting to http://google.com'; 
      Synchronize(UpdateLVCaption); 
      OnDocumentComplete:= Submit; 
    except 
      FreeAndNil(WebBrowser); 
      OleUninitialize; 
    end; 
  Fstatus:= 'finished.'; 
  Synchronize(UpdateLVCaption); 
end; 

procedure TMyThreads.Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); 
begin 
// Tritt leider nie ein ************************** 
  showmessage('Submit fired'); 
//************************************************ 
  (Sender As TWebBrowser).OleObject.document.forms.item(0).elements.item('q').value:='test'; 
  (Sender As TWebBrowser).OleObject.Document.Forms.item(0).submit; 
  FreeAndNil(Sender); 
  OleUninitialize; 
end;

... und er das FreeAndNil eher aufruft bevor das Ereignis überhaupt auftreten kann!

Hab leider momentan keine zeit, bin immer nur mal sporadisch am pc.
werd mir das morgen mal angucken wennes bis dahin nicht gelöst hast!

mfg emploi

[edit]
ich seh grad der Basic war ja schneller mit der antwort :P
[/edit]

[endeffects]

also laut meinem packetsniffer wird
Navigate('http://www.google.com');
ausgeführt und anschließend wird
Fstatus:= 'finished.'; übergeben.
die ondocumentcomplete anweisung
dazwischen wird nicht ausgeführt

[endeffects]

Zitat:

auf showmessage würde ich mich nicht verlassen

na ich hab das vorher auch mit dem übergeben des status probiert,
dieser wird auch nicht angezeigt in meiner mainform:

Delphi-Quellcode:

procedure TMyThreads.Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  Fstatus:= 'Submit() fired!';
  Synchronize(UpdateLVCaption);
end;

darüber hinaus hab ich auch noch andere Events ausprobiert,
immer mit dem selben Ergebnis :(

[emploi]

so hab mal bissel dran gebastelt.
schau dir das an und probier es ein bissel aus.
sollte dann für dich klappen:

Code:

unit Unit2;

interface

uses
   SysUtils, Classes, Controls, Forms, Dialogs, OleCtrls, SHDocVw, ActiveX;

type
  myThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    procedure Execute; override;
    procedure Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
    procedure UpdateCaption;
  public
    app : TApplication;
  end;

implementation

uses Unit1;

{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dürfen 
  nur in einer Methode namens Synchronize aufgerufen werden, z.B.

      Synchronize(UpdateCaption);

  und UpdateCaption könnte folgendermaßen aussehen:

    procedure myThread.UpdateCaption;
    begin
      Form1.Caption := 'Aktualisiert in einem Thread';
    end; }

{ myThread }

procedure myThread.Execute;
var wb : TWebBrowser;
begin
  OleInitialize(nil);
  wb := TWebBrowser.Create(Form1);
  try
    TWinControl(wb).Name := 'MyWebBrowser';
    TWinControl(wb).Parent := Form1;
    wb.OnDocumentComplete := self.Submit;
    wb.Align := alClient;
    wb.Navigate('http://www.google.com');

    while wb.ReadyState <> READYSTATE_COMPLETE do
      app.ProcessMessages;

    Synchronize(UpdateCaption);

  except
     FreeAndNil(wb);
     OleUninitialize;
  end;
end;

procedure myThread.UpdateCaption;
begin
      Form1.Caption := 'Aktualisiert in einem Thread';
end;

procedure myThread.Submit(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  showmessage('test');
end;

end.

HauptUnit

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var myTestThread : myThread;
begin
       myTestThread := myThread.Create(True);
       WITH myTestThread DO
       BEGIN
          myTestThread.app := Application;
          FreeOnTerminate := True;
          Resume;
       END;
END;

end.

mfg emploi

[endeffects]

hallo,

danke für deine mühe =),
nun bin ich schon ein ganzes stück weiter dank deiner hilfe,
leider gibts noch immer zugriffsverletzungen =(

die threads werden in der hauptform nun wie folgt erzeugt:

Delphi-Quellcode:

  for Loop := 0 to length(ThreadArray) - 1 do
  begin
    ThreadArray[Loop] := TMyThreads.Create(true);
    ThreadArray[Loop].app := Application; 
    ...
  end;

die thread unit hab ich wie folgt geändert:

Delphi-Quellcode:

procedure TMyThreads.Execute; 
var
  WebBrowser: TWebBrowser;
begin
  OleInitialize(nil);
  WebBrowser:= TWebBrowser.Create(nil);
  with WebBrowser do
    try
      OnDocumentComplete:= Submit;
      Navigate('http://www.google.com');

      while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
        app.ProcessMessages;

      Fstatus:= 'ReadyState done.';
      Synchronize(UpdateLVCaption);

    except
      FreeAndNil(WebBrowser);
      OleUninitialize;
    end;

  Fstatus:= 'finished.';
  Synchronize(UpdateLVCaption);
end;

procedure TMyThreads.Submit(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  Fstatus:= 'sending.';
  Synchronize(UpdateLVCaption);
//  (Sender As TWebBrowser).OleObject.document.forms.item(0).elements.item('q').value:='test';
//  (Sender As TWebBrowser).OleObject.Document.Forms.item(0).submit;
  FreeAndNil(Sender);
  OleUninitialize;
end;

Wenn ich den Form-Submit auskommentiere erhalte ich die Fehlermeldung:

Zitat:

Im Projekt ... ist eine Exception der Klasse EAccessViolation aufgetreten.
Meldung: Zugriffsverletzung bei Adresse 70AB7CCB in Modul SHLWAPI.dll.
Lesen von Adresse 00000018. ...

Wenn ich das OLE Objekt wieder aktiviere um es dann aus`zufüllen und abzuschicken
gibt es ebenfall eine Zugriffsverletzung. Zumindesten funktioniert
das OnDocumentComplete Event jetzt.

Des öfteren scheint es auch vorzukommen dass das Programm bzw der/die Threads
in der ReadyState - while Schleife einfrieren.

Hast Du vielleicht noch eine Idee wie man diese Fehler beheben könnte?

[emploi]

hehe, wie ich sehe benutzt du jetzt auch ein thread array ;)
das ist ja ein zufall. Ich bastel nämlich grad auch an einem programm
wo ich zum ersten mal mit threads und halt gleich nem thread
array arbeite. das problem ist das ich immer einen stack overflow
bekomme.

damit muss ich mich auch noch irgendwie zurecht finden,
werd nachher mal an der lösung deines problems weiter machen.

kannst ja mal bei mir reingucken :)

Mein Thread

mfg emploi

[endeffects]

ich hab mit ein bissel hilfe hier im forum auch
schon ein paar brauchbare programme die mit threads
arbeiten zusammengebastelt,bisher hab ich dafür
immer die indy komponenten nutzen können, aber in
diesem fall geht es leider nicht ohne den ie :(

[emploi]

das ist um so besser :)

ich kenn mich mitm ie mitlerweile echt ziemlich gut aus.
also mit der TWebBrowser Komponente!

und ich benutz auch die indy im thread!

vielleicht können wir uns ja echt gegenseitig helfen!

mfg emploi