DDE

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

blitzuser34

Betreff: DDE

 BeitragDi, Nov 18, 2008 20:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi,

kann BlitzBasic eigentlich DDE(Dynamic Data Exchange)? Wenn nein, gibts für so was ne Dll?? Kenn mich damit auch nich so wirklich aus.

Blitzuser34

Edit: habe folgende 2 "Makros für Winword" im Verzeichnis des Programms gefunden, vielleicht bringen die was???

Code: [AUSKLAPPEN]
Sub DDE1()
'
' DDE1 Makro
' Makro erstellt am 03.09.2002 von Dirk Bozza
'
Dim a$
Dim Kanal
Dim Result$
Dim Command_$
a$ = WordBasic.[GetPrivateProfileString$]("Main", "PrgPath", "vrn2007.ini") + "\vrn2007.EXE"
If WordBasic.AppIsRunning("Anwalt- und Notarverzeichnis 2007 - 8. Edition") = 0 Then
    WordBasic.Shell a$
    WordBasic.AppActivate "Microsoft Word", 1
End If

Kanal = WordBasic.DDEInitiate("vrn2007", "vrn")

WordBasic.DDEExecute Kanal, "GetData"

Result$ = WordBasic.[DDERequest$](Kanal, "DDEResult")
If (Result$ <> "") Then
  WordBasic.MsgBox Result$, "Anwalt- und Notarverzeichnis 2007 - 8. Edition", 32
Else
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName1")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName2")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName3")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDETitel")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAkad")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdel")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdresse")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEKommunikation")
End If

WordBasic.DDEExecute Kanal, "Close"
WordBasic.DDETerminateAll

End Sub


Code: [AUSKLAPPEN]
Public Sub MAIN()
Dim a$
Dim Kanal
Dim Result$
Dim Command_$
a$ = WordBasic.[GetPrivateProfileString$]("Main", "PrgPath", "vrn2007.ini") + "\vrn2007.EXE"
If WordBasic.AppIsRunning("Anwalt- und Notarverzeichnis 2007 - 8. Edition") = 0 Then
    WordBasic.Shell a$
    WordBasic.AppActivate "Microsoft Word", 1
End If

  Kanal = WordBasic.DDEInitiate("vrn2007", "vrn")
  Command_$ = ""
  Command_$ = Command_$ + "Search" + Chr(13)
  Command_$ = Command_$ + "ObjektName=Abel" + Chr(13)
  Command_$ = Command_$ + "ObjektVorname=Susanne" + Chr(13)
  Command_$ = Command_$ + "ObjektPLZOrt=52072" + Chr(13)
  Command_$ = Command_$ + "ObjektAG=Aachen" + Chr(13)
  Command_$ = Command_$ + "ObjektLKZ=D" + Chr(13)
  Command_$ = Command_$ + "ObjektTyp=Rechtsanwalt/Rechtsanwältin" + Chr(13)
WordBasic.DDEExecute Kanal, Command_$

Result$ = WordBasic.[DDERequest$](Kanal, "DDEResult")
If (Result$ <> "") Then
  WordBasic.MsgBox Result$, "Anwalt- und Notarverzeichnis 2007 - 8. Edition", 32
Else
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName1")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName2")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName3")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDETitel")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAkad")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdel")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdresse")
  WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEKommunikation")
End If

WordBasic.DDEExecute Kanal, "Close"
WordBasic.DDETerminateAll
End Sub

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group