funktion liest den wert zu früh

[toms]

Hallo,

Probier's mal so:

Delphi-Quellcode:

procedure WaitForBrowser(WB: TWebbrowser);
begin
  while (WB.ReadyState <> READYSTATE_COMPLETE)
    and not (Application.Terminated) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
end;

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