Tweet
Ich muß ein zum Theme DDE ein VBA-Code in Delphi übersetzen und habe folgende Information gefunden:<br>
Das Programm EuriTel kann von anderen Programmen aus mit DDE gesteuert werden.<br>
Zur Steuerung des Programms EuriTel verwenden Sie folgende Einstellungen:<br>
LinkTopic EuriTel|DDE<br>
Die Befehle sind mit LinkExecute ausführbar.<br>
Folgende Befehle sind möglich:<br>
ATDxxxx Nummer xxxxxxx wählen.<br>
ATH Auflegen<br>
Show Zeigt das EuriTel Fenster<br>
Hide Minimiert das EuriTel Fenster<br>
ATDMAxxxx Nummer xxxx wählen, MSN A benutzen (Nur Eurit 20 / 30) analog mit MSN B C D E<br>
ATDMAH1xxxx Nummer xxxx wählen, MSN A benutzen (Nur Eurit 40) analog mit MSN B C D E<br>
ATDyyyxxxx Nummer xxxx wählen, vorher Makro yyy ausführen (Nur Eurit 40)<br>
Atxxxxxxxx Befehl an das Telefon schicken (alle Befehle des Eurit unterstützt, jedoch kann es zu unvorhergesehenen Effekten kommen, falls versucht wird Einträge im Telefonbuch oder die Konfiguration zu ändern).<br>
DIALxxxx Nummer xxx wählen, aktuelle Einstellungen verwenden (Makro, MSN) <br>
Die folgenden Informationen können über DDE angefordert werden:<br>
LinkTopic LinkItem<br>
Letzter Teilnehmer (Telefonnummer) EuriTel|DDE DDENummer<br>
Letzter Teilnehmer (Name) EuriTel|DDE lblName<br>
Status (als Text) EuriTel|DDE <br>lblStatus
Gebühren EuriTel|DDE lblGebühren<br>
Gesprächsdauer EuriTel|DDE lblDauer<br>
Benutzte MSN EuriTel|DDE lblMSN<br>
Beispiel: Wählen aus MS Access:<br>
Fügen Sie ein Modul ein und deklarieren folgende Funktion:<br>
Public Function DDEDial(Nummer As String) As Boolean<br>
Dim intKan1 As Long<br>
'Fehlerbehandlungsroutine einrichten.<br>
On Error Resume Next<br>
'Verknüpfung herstellen.<br>
intKan1 = DDEInitiate("EuriTel", "DDE")<br>
'Falls Fehler auftritt, wurde EuriTel vielleicht<br>
If Err Then<br>
'nicht gestartet. Fehler zurücksetzen und Funktion beenden<br>
Err = 0<br>
DDEDial = False<br>
Exit Function<br>
End If<br>
'Nummer wählen.<br>
DDEExecute intKan1, "ATD" & Nummer<br>
DDETerminate intKan1<br>
DDEDial = True<br>
End Function<br><p>
Mit MSACCESS funktioniert das einwandfrei. Wie kann ich das nach Delphi5 übersetzen ? Wer kann helfen ?<br>
Das Programm EuriTel kann von anderen Programmen aus mit DDE gesteuert werden.<br>
Zur Steuerung des Programms EuriTel verwenden Sie folgende Einstellungen:<br>
LinkTopic EuriTel|DDE<br>
Die Befehle sind mit LinkExecute ausführbar.<br>
Folgende Befehle sind möglich:<br>
ATDxxxx Nummer xxxxxxx wählen.<br>
ATH Auflegen<br>
Show Zeigt das EuriTel Fenster<br>
Hide Minimiert das EuriTel Fenster<br>
ATDMAxxxx Nummer xxxx wählen, MSN A benutzen (Nur Eurit 20 / 30) analog mit MSN B C D E<br>
ATDMAH1xxxx Nummer xxxx wählen, MSN A benutzen (Nur Eurit 40) analog mit MSN B C D E<br>
ATDyyyxxxx Nummer xxxx wählen, vorher Makro yyy ausführen (Nur Eurit 40)<br>
Atxxxxxxxx Befehl an das Telefon schicken (alle Befehle des Eurit unterstützt, jedoch kann es zu unvorhergesehenen Effekten kommen, falls versucht wird Einträge im Telefonbuch oder die Konfiguration zu ändern).<br>
DIALxxxx Nummer xxx wählen, aktuelle Einstellungen verwenden (Makro, MSN) <br>
Die folgenden Informationen können über DDE angefordert werden:<br>
LinkTopic LinkItem<br>
Letzter Teilnehmer (Telefonnummer) EuriTel|DDE DDENummer<br>
Letzter Teilnehmer (Name) EuriTel|DDE lblName<br>
Status (als Text) EuriTel|DDE <br>lblStatus
Gebühren EuriTel|DDE lblGebühren<br>
Gesprächsdauer EuriTel|DDE lblDauer<br>
Benutzte MSN EuriTel|DDE lblMSN<br>
Beispiel: Wählen aus MS Access:<br>
Fügen Sie ein Modul ein und deklarieren folgende Funktion:<br>
Public Function DDEDial(Nummer As String) As Boolean<br>
Dim intKan1 As Long<br>
'Fehlerbehandlungsroutine einrichten.<br>
On Error Resume Next<br>
'Verknüpfung herstellen.<br>
intKan1 = DDEInitiate("EuriTel", "DDE")<br>
'Falls Fehler auftritt, wurde EuriTel vielleicht<br>
If Err Then<br>
'nicht gestartet. Fehler zurücksetzen und Funktion beenden<br>
Err = 0<br>
DDEDial = False<br>
Exit Function<br>
End If<br>
'Nummer wählen.<br>
DDEExecute intKan1, "ATD" & Nummer<br>
DDETerminate intKan1<br>
DDEDial = True<br>
End Function<br><p>
Mit MSACCESS funktioniert das einwandfrei. Wie kann ich das nach Delphi5 übersetzen ? Wer kann helfen ?<br>
Comment