funktion liest den wert zu früh

[marabu]

Zitat von CTV:

beim ereignis onDocumentcomplet über gebe ich einen wert welcher von der webseite ist an einer globaler variabel.

Das Ereignis wird mehrfach aufgerufen, du musst schon den richtigen Augenblick abwarten:

Delphi-Quellcode:

function tformMain.getDis(start:string):double;
begin
  //....
  wb2.Navigate(extractfilepath(application.ExeName)+'rechne.htm');
  // result:=GR;
end;

procedure TFormMain.ExtractGR(url: OleVariant);
var 
  s, s2: string;
  i1, i2: integer;
begin
  if pos('s=', url) > 0 then begin
    WB_GetHTMLCode(wb2, dis);
    s := dis.Text;
    i1 := pos('edl', s) + 12;
    i2 := pos('//', s) - 1;
    s2 := copy(s, i1, i2 - i1);
    try
      GR := strtofloat(s2);
    except
      GR := 0;   
    end;
  end;
end;

procedure TFormMain.wb2DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if pDisp = wb2.DefaultInterface then
    ExtractGR(url);
end;

Grüße vom marabu