Hallo zusammen,
ich habe hier ein Problem, womit ich mich nun schon 2 Tage lang beschäftige und einfach nicht mehr weiter komme.
Ich versuche eine DDE Verbindung mit dem Programm AutoDesk Inventor 7 aufzubauen, welche eigentlich nur den öffne Befehl ausführen soll.
Hier mein Quellcode:
Delphi 6
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.Button1Click(Sender: TObject);
Buffer : PChar;
Cmd : String;
begin
DdeClientConv.SetLink('INVENTOR','System');
DdeClientConv.OpenLink;
Cmd := '[Open("C:\833.IPT")]';
Buffer := StrAlloc(Length(Cmd)+SizeOf(Char));
DDEClientConv.ExecuteMacro(StrPCopy(Buffer, Cmd), False)
StrDispose(Buffer);
end; |
Dann habe ich noch ein Programm namens DDESpy und da kommt folgendes raus:
Task:0x558 Time:1905587203 hwndTo=0x1e0832 Message(Sent)=Ack:
hwndFrom=0xa305b4, App=0xc017("INVENTOR")status=c017(fAck fBusy )
Topic=Item=0xc009("System")
Task:0x544 Time:1905587234 hwndTo=0xa305b4 Message(Posted)=Execute:
hwndFrom=0x1e0832,
Execute command="[Open("C:\8"
Task:0x558 Time:1905587281 hwndTo=0x1e0832 Message(Posted)=Ack:
hwndFrom=0xa305b4, App=0x8000("#32768")status=8000(fAck )
Topic=Item=0x9a1002c("#44")
Task:0x544 Time:1905587312 Error: #4006 = Invalidparameter
Task:0x544 Time:1905587312 Callback:
Type=Xact_complete, fmt=0x1("CF_TEXT"), hConv=0x8000580, hsz1=0xc000("System")
hsz2=0x0(""), hData=0x1, dwData1=0xa000a80, dwData2=0x8000
return=0x0
Und wenn ich über den Windows Explorer versuche, dann funzelt es:
Task:0x490 Time:1905541187 hwndTo=0x3d011c Message(Sent)=Initiate:
hwndFrom=0x62093e, App=0xc017("INVENTOR")
Topic=0xc009("System")
Task:0x490 Time:1905541218 hwndTo=0xa305b4 Message(Posted)=Execute:
hwndFrom=0x62093e,
Execute command="["
Task:0x558 Time:1905541250 hwndTo=0x62093e Message(Posted)=Ack:
hwndFrom=0xa305b4, App=0x8000("#32768")status=8000(fAck )
Topic=Item=0x9a1002c("#44")
Task:0x490 Time:1905541281 hwndTo=0xa305b4 Message(Posted)=Terminate:
hwndFrom=0x62093e,
Task:0x558 Time:1905542578 hwndTo=0x62093e Message(Posted)=Terminate:
hwndFrom=0xa305b4,
**********************************************************
Kann es sein das DdeClientConv ein Bug hat? Oder kann man es vieleicht irgendwie anderst lösen?
Bitte hilft mir, denn ich raste noch aus.
CU
JCH
[/delphi]
