[minou]

'HeDiBo' wrote:

If you want some action on this bug, you should be more informative about what goes wrong.

Please specify what the problem is.

Execute code When Page (Google Maps) Has Fully Loaded but this does not happen

[HeDiBo]

'minou' wrote:

Execute code When Page (Google Maps) Has Fully Loaded but this does not happen

Thank you :a3:, I'm sure Serge will answer this.

[Support]

Hello, Minou

I'm trying to repeat your problem, but can't. This event is working in my test-app.

Can you show a demo, please?

[HeDiBo]

Send us a complete project (dproj and all), that compiles without errors, packed in a ZIP file, if you really want answers.

[minou]

'HeDiBo' wrote:

Send us a complete project (dproj and all), that compiles without errors, packed in a ZIP file, if you really want answers.

thank you

anyway it is work now my be problem in ie or ac

[HeDiBo]

'minou' wrote:

thank you

anyway it is work now my be problem in ie or ac

For your information, your test program worked fine with me too.

Best of luck to you 🙄

[HeDiBo]

JM-DG apparently posted a message, that was later removed? The message went:

Quote:

There is indeed a weird bug with TsWebBrowser in Delphi 7 at least.

Assign any of these actions in TsWebBrowser

OnBeforeNavigate2

OnCommandStateChange

OnDocumentComplete

OnNavigateComplete2

// Put a comment so that delphi does'nt remove them.

– Save All.

– Close the project.

– Reopen the project and the actions won't be linked anymore.

I can confirm this serious bug using Delphi XE4.

I tried the same thing with TWebbrowser and no problem there. So it must be somewhere in TsWebBrowser.

[Support]

Hello and thanks for the demo!

The reason of this problem is in different declaration of events under different versions of Delphi.

Under Delphi 7 this event looks like this:

Code:

procedure TForm1.sWebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);

Under Delphi XE 3:

Code:

procedure TForm1.sWebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);

I think, single solution – to redeclare the event after migration to other Delphi version.

[HeDiBo]

'Support' wrote:

I think, single solution – to redeclare the event after migration to other Delphi version.

I'm not sure what you mean. :a1:

[Support]

Sorry. I mean – to handle the event in new IDE again.

Also, I have added some changes in the next release, maybe it helps.

[HeDiBo]

Problem solved in 10.16 :a3:

[minou]

sWebBrowser1DocumentComplete ..ok

sWebBrowser1DownloadComplete ..ok

please add this example to demo

http://www.alphaskins.com/ademos.php

[HeDiBo]

Can you build an English language version?

Please correct all the indentation errors in the source. Example:

Code:

try

if Assigned(Super['places'].AsArray) then // Indented too far
Count :=Super['places'].AsArray.Length else Count :=0;

for i := 0 to Count – 1 do
with ListView.Items.Add do
begin
Caption :=(Super['places[' + inttostr(i) + '].name'].AsString);
subitems.Add(Super['places[' + inttostr(i) + '].distance'].AsString);
subitems.Add(Super['places[' + inttostr(i) + '].vicinity'].AsString);
end;

except on e:exception do // Does not align with the try statement
result:='произошла ошибка : '+e.Message;
end;

if ListView.Items.Count>0 then // does not align with the previous end statement.
result:='Ближайший банк : ' + ListView.Items[0].caption +'только : ' +ListView.Items[0].SubItems[0]+ ' метр'
end;

You see, sample code should be impeccable: readers of the example should be able to follow it without extra effort.

Your example is very interesting, because it illustrates the use of Google Maps. :a3:

[minou]

'HeDiBo' wrote:

Can you build an English language version?

Please correct all the indentation errors in the source. Example:

Code:

try

if Assigned(Super['places'].AsArray) then // Indented too far
Count :=Super['places'].AsArray.Length else Count :=0;

for i := 0 to Count – 1 do
with ListView.Items.Add do
begin
Caption :=(Super['places[' + inttostr(i) + '].name'].AsString);
subitems.Add(Super['places[' + inttostr(i) + '].distance'].AsString);
subitems.Add(Super['places[' + inttostr(i) + '].vicinity'].AsString);
end;

except on e:exception do // Does not align with the try statement
result:='произошла ошибка : '+e.Message;
end;

if ListView.Items.Count>0 then // does not align with the previous end statement.
result:='Ближайший банк : ' + ListView.Items[0].caption +'только : ' +ListView.Items[0].SubItems[0]+ ' метр'
end;

You see, sample code should be impeccable: readers of the example should be able to follow it without extra effort.

Your example is very interesting, because it illustrates the use of Google Maps. :a3:

Try now

[Support]

Thanks for the example, I will publish it soon.

[HeDiBo]

'minou' wrote:

Try now

It's a beautiful example. Bravo :a3:

[minou]

fix

work in win 10 !

[arabelaalborn]

You all are brilliant!

[Author]

Posts