Lotus Notes / Domino Sonstiges > Tipps und Tricks

Eine beliebige Adresse anzeigen lassen

(1/2) > >>

ata:
Hallole...

Ich hätte einen kleinen Tip zum Starten von Anwendungen über die WinAPI. Als Beispiel möchte ich mir eine Adresse in einem Routenfinder im Internet anzeigen lassen. Dazu wird eine URL generiert, die dann über ShellExecute ausgeführt wird.

Voraussetzung:
Windows als Plattform - wg. WinAPI
Internet-Verbindung

Hier der Code:

--- Code: ---' # Ausführen fremder Programme - In den Declarations hinterlegen - ata
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecuteFile Lib "shell32.dll" Alias "ShellExecuteA" (Byval _
hwnd As Long, Byval lpOperation As String, Byval lpFile As String, Byval _
lpParameters As String, Byval lpDirectory As String, Byval nShowCmd As Long) As Long

Sub ShowMap24( sStreet As String , sZip As String , sCity As String )
' # Eine Adresse im Routenfinder "Map24" anzeigen
   Dim strURL As String
   Dim vValue As Variant
' # Bilden des Strings
   strURL = "http://www.map24.de/map24/index.php3?map24_sid=&street0=" + sStreet
   strURL = strURL + "&zip0=" + sZip
   strURL = strURL +"&city0=" + sCity
   ShellExecuteFile GetDesktopWindow(), "open", strURL, "", "", 1
End Sub

' # Aufruf der Funktion dann zum Beispiel aus einem Personendokument
' # ... hier aus einer Maskenaktion am Beispiel der Privatadresses...
Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim docThis As NotesDocument
   '
   Set docThis = ws.CurrentDocument.Document
   With docThis
      Call ShowMap24( .StreetAddress(0) , .Zip(0) , .City(0) )   
   End With   
End Sub
--- Ende Code ---

... viel Spaß damit - funzt wunderbar

ata

Semeaphoros:
Das ist wirklich was nützliches, Danke

ata:
... klein aber fein...  ;D

ata

Driri:
Super Sache ! Danke ata, habs sofort in unser Telefonverzeichnis eingebaut  ;D

ata:
... ich hoffe der Zugang bleibt noch lange so offen. Das PHP toleriert eine fehlende ID - nur damit gehts...

... sollten die das mal umstellen, oder die URL ändert sich, dann ist das Feature wieder weg - also Vorsicht...

... zudem habe ich vergessen, daß Map24 für Privatzwecke das kostenlos anbietet - nicht für kommerziellen Gebrauch - also bitte unbedingt beachten, wenn ihr den Tip verwendet...

... vorgeschrieben ist es nicht, aber eine Registrierung öffnet einem noch weitere kostenlose Features...

ata

Navigation

[0] Themen-Index

[#] Nächste Seite