[delphi]ActiveX javascript aanroepen

[Megamind]

Ik heb een ActiveX applicatie geschreven in Delphi 7 die geopend wordt in een HTML bestand.

Nu haal ik met Delphi een param op uit het HTML bestand.

Maar nu wil ik dat de applicatie een Javascript functie aanroept. Gewoon zoals dit:

code:

function save(){
  alert('test');
}

Maar hoe kan Delphi deze aanroepen?

Ik heb het stuk op Delphi3000 gelezen waar staat:

Add an Event:
Open the Event section in the outline and right click. Select the New | Method option. Give the Method a name like OnSubmit.
Lets say you want to assign a button click on the form with the new event. Insert the following code under the button click procedure.

procedure TActiveXtest1.ButtonSubmitClick(Sender: TObject);
begin
If FEvents <> Nil Then
Begin
FEvents.OnSubmit; // OnSubmit is the new event
End;
end;

Ik heb de event toegevoegd, en het stukje code aan bv een knop toegevoegd maar dan krijg ik, Undeclared identifier 'OnSubmit'. Wat ik ook niet vreemd vindt want waar moet hij deze opeens vandaan halen? Zowiezo snap ik het stukje code niet echt.

[LordLarry]

Je moet de OnSubmit toevoegen als Event in je TLB Editor, als ik het goed begrijp. Voor zover ik weet kan je applicatie nooit zelf javascript aanroepen. Wat je nu doet is een event toevoegen. Het javascript zal dan nog zelf de koppeling moeten leggen.

PS: Active Forms (ActiveX) is eigenlijk een beetje dood en niet erg geliefd. Kan je niet beter wat anders gebruiken?

[Megamind]

Door een bug in Delphi7 moet je iedere keer een active form toevoegen en verwijderen om Web deployment weer enabled te krijgen dus mijn TLB was nogal vol en zag ik over het hoofd dat er een aparte Events sectie was.

Het werkt nu wel, ik kan nu wel JS aanroepen vanuit de applicatie naar de HTML.

Ik gebruik het om een image uploader te maken, ipv die file browse dingen heb ik gewoon een lijst van foto's die je kan aanklikken en die ze verstuurd.

Het was of dit of java, maar helaas heb ik daar 0,0 kaas van gegeten... Andere oplossingen kon ik niet verzinnen.

[LordLarry]

Flash of Silverlight wellicht

[Megamind]

Flash kan ook niet lokaal de PC bekijken, Silverlight kan ik eens proberen ja.