Tweet
I am wondering if anyone has a working perl script I can look at, or has enough knowledge of DDE to figure out how I can grab data. It looks like I am connecting to the DDE server (QLink) but I must not be requesting the data the correct way from the DDE Server.
Its seems simple enough, all I can do is..
Request(ITEM)
Returns the value of ITEM from the DDE server.
Poke (ITEM, VALUE)
Pokes VALUE into ITEM at the DDE server.
Execute (CMD)
Executes CMD at the DDE server.
Hopefully someone here can help me out .
======= Quick Code ==========
#!c:\perl\bin\perl.exe
use Win32:
DE::Client;
$Client = new Win32:DE::Client ('QLink', 'TS');
die "Unable to initiate conversation" if $Client->Error;
$ts =$Client->Request ('IBM,10,DEIPSCT,HEADERS');
print "$ts\n";
$Client->Disconnect;
=========================
Its seems simple enough, all I can do is..
Request(ITEM)
Returns the value of ITEM from the DDE server.
Poke (ITEM, VALUE)
Pokes VALUE into ITEM at the DDE server.
Execute (CMD)
Executes CMD at the DDE server.
Hopefully someone here can help me out .
======= Quick Code ==========
#!c:\perl\bin\perl.exe
use Win32:
DE::Client;$Client = new Win32:
DE::Client ('QLink', 'TS'); die "Unable to initiate conversation" if $Client->Error;
$ts =$Client->Request ('IBM,10,DEIPSCT,HEADERS');
print "$ts\n";
$Client->Disconnect;
=========================
Comment