[Delphi] Toolbar en / of MenuExt vraagje - Softwareontwikkeling

zaterdag 10 juni 2006 17:09

Acties:

Topicstarter

Probleem omschrijving
Ik heb een toolbar gemaakt, die de broncode van een pagina uitleest als er op een knop wordt gedrukt.
Dit heb ik gemaakt omdat we zo bestellingen die via internet gedaan worden direct in een administratie pakket kunnen zetten.

Nu wil het geval dat sommige sites waarbij je online kan bestellen. Een popup maken waarin ze alle toolbars uitzetten.
Dan staat mijn knopje er ook niet meer bij.

Wens 1
Nu had ik graag dat mijn balk altijd zichtbaar is. Hij wordt wel geladen, maar het knopje is onzichtbaar. Dus ik kan de bron dus niet laten uitlezen.
Het lijkt me ook niet dat je een toolbar zichtbaar kan maken in een popup waar toolbars uitstaan, maar misschien weet iemand een workarround ofzo.
Ik had gezocht het zag dat het misschien mogelijk was via ShowBrowserBar. Maar kreeg het niet draaiend vanuit mijn eigen toolbar.

Wens 2
Ik ben naar alternatieven opzoek gegaan, en vond dus MenuExt. Hiermee kan ik de juiste code ( outerhtml ) wel uitlezen. Maar dit krijg ik alleen aan de gang via een html file. (external.menuArguments.event.srcElement.outerHTML)
Daar kan ik echter weinig mee. Ik had het liever draaiend in een exe of dll bestand. Omdat ik hem dan weer terug in mijn toolbar kan plaatsen. Maar ik kan niets vinden over hoe ik de dll / exe file de outerHTML laat op hoesten.

Wens 3
Een alternatief voor mijn probleem

Ik ben de hele middag bezig geweest op google en msdn van microsoft.
Ik hoop dat iemand van jullie hier ervaring mee heeft,
of me in een andere richting kan wijzen.

Alvast bedankt!

Caravans!

maandag 12 juni 2006 18:56

Acties:

thatsmej

Topicstarter

Niemand nog iedeen hiervoor?

Caravans!

maandag 12 juni 2006 19:30

Acties:

LordLarry

Aut disce aut discede

Maak er geen specifiek Delphi topic van en meld duidelijk dat het gaat om een InternetExplorer Toolbar?

We adore chaos because we like to restore order - M.C. Escher

zaterdag 17 juni 2006 10:31

Acties:

thatsmej

Topicstarter

gaat dus niet meer

maar goed,
mocht ooit iemand tegen het zelfde probleem aan lopen.

google naar HTA Daar kan het wel mee.

code:

<html><head><script language=vbs>
Dim EvtSrc, WS, FS, URL, Path, Title, EN
Set WS = CreateObject("WScript.Shell")
Set FS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set EvtSrc=external.menuarguments.event.srcelement
EN = Err.Number
On Error GoTo 0
If EN <0 Then Reg_UnReg
'
Sub SaveAsMhtml()
Dim objDoc
Dim objXML
Dim strHTML
Dim ts
Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.CreateTextFile("c:\downloaded.txt", True)
Set EvtSrc=external.menuarguments.event.srcelement

strHTML = EvtSrc.outerHTML

ts.Write strHTML
ts.Close
  external.menuarguments.status = ""
  ShowMessage 3
End Sub
'
Sub ShowMessage(Mes)
  Select Case Mes
  Case 1: WS.PopUp "No link address.", 2
  Case 2: WS.PopUp "Downloading failed", 2
  Case 3: WS.PopUp "Downloading finished.", 2
  End Select
  window.close
End Sub
'
Sub Reg_UnReg()
  Const RootKey = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\"
  Const Name = "SaveAs &Mht Format"
  Dim Path, TKey, Dummy, EN
  Path = document.urlunencoded
  TKey = RootKey & Name & "\"
  On Error Resume Next
  Dummy = WS.RegRead(TKey): EN = Err.Number
  On Error GoTo 0
  If EN = 0 Then
    WS.RegDelete TKey
    WS.PopUp "Deleted from context menu", 2
  Else
    WS.RegWrite TKey, Path, "REG_SZ"
    WS.RegWrite TKey & "contexts", &H20, "REG_DWORD"
    WS.PopUp "Added to context menu", 2
  End If
  window.close
End Sub
</script></head><body onload=SaveAsMhtml></body></html>

ik ga de code hierboven nu netjes maken

Caravans!