Forum: Netzwerke
Delphi
by toms,
25. Mai 2005
private
GR:double;
getDis(start:string):double;
function tformMain.getDis(start:string): Double;
begin
//....
wb2.Navigate(ExtractFilePath(application.ExeName)+'rechne.htm');
WaitForBrowser(wb2);
Forum: Netzwerke
Delphi
by toms,
25. Mai 2005
@marabu: aber auch selbst dann wird nach
wb2.Navigate(extractfilepath(application.ExeName)+'rechne.htm');
sofort
result:=GR;
ausgefuehrt
Forum: Netzwerke
Delphi
by toms,
25. Mai 2005
Hallo,
Probier's mal so:
procedure WaitForBrowser(WB: TWebbrowser);
begin
while (WB.ReadyState <> READYSTATE_COMPLETE)
and not (Application.Terminated) do
begin
Application.ProcessMessages;