HELP with DDE

HELP with DDE

Post by G. Q. Y » Sat, 29 Jun 1996 04:00:00



I'm working on a OPAL script that would use DDE to fax a report to a number that is defined in
the script through BitWare Client for Cheyenne FAXserve.  I'm trying to use the DDE to send the
number to the client, but I just can't seem to initialize the DDE server.

Would anyone please give me a pointer or some working code for something similar?  This is my
current code (it's my first feeble attempt at DDE):

1       if printerSetCurrent("BitWare Fax Driver,BITWARED,FAXserve") then
2
3       else
4               msgInfo("Printer Setup", "Cannot select FaxServe as printer")
5       endIf
6       if FaxDDE.open("BitWare") then
7               FaxDDE.excute("SendFax")
8               FaxDDE.setItem("To")
9               FaxDDE = "708-555-1212"               ;fax number
10              FaxDDE.setItem("Resolution")
11              FaxDDE = "Fine"                       ;setting resolution
12              confRep.print(":REP:CONFIRM")
13              FaxDDE.close()
14      else
15              msgInfo("Warning", "Fax client not available.")
16      endIf
-----------------------end---------------------

When I run this code, it'll just display the warning message on line 15 and end.  I've also
tried line 6 as if FaxDDE.open("BitWare", "SendFax"), and it did the same thing.  I'm at this
moment cluelss.  HELP.

Thanks in advance for any help.

George

 
 
 

HELP with DDE

Post by Hennie Mout » Sun, 30 Jun 1996 04:00:00


begin 644 bitdde.pas
<uuencoded_portion_removed>

`
end

 
 
 

HELP with DDE

Post by Hennie Mout » Sun, 30 Jun 1996 04:00:00



Quote:>I'm working on a OPAL script that would use DDE to fax a report to a number that is defined in
>the script through BitWare Client for Cheyenne FAXserve.  I'm trying to use the DDE to send the
>number to the client, but I just can't seem to initialize the DDE server.
>Would anyone please give me a pointer or some working code for something similar?  This is my
>current code (it's my first feeble attempt at DDE):
>1   if printerSetCurrent("BitWare Fax Driver,BITWARED,FAXserve") then
>2
>3   else
>4           msgInfo("Printer Setup", "Cannot select FaxServe as printer")
>5   endIf
>6   if FaxDDE.open("BitWare") then
>7           FaxDDE.excute("SendFax")
>8           FaxDDE.setItem("To")
>9           FaxDDE = "708-555-1212"               ;fax number
>10          FaxDDE.setItem("Resolution")
>11          FaxDDE = "Fine"                       ;setting resolution
>12          confRep.print(":REP:CONFIRM")
>13          FaxDDE.close()
>14  else
>15          msgInfo("Warning", "Fax client not available.")
>16  endIf
>-----------------------end---------------------
>When I run this code, it'll just display the warning message on line 15 and end.  I've also
>tried line 6 as if FaxDDE.open("BitWare", "SendFax"), and it did the same thing.  I'm at this
>moment cluelss.  HELP.
>Thanks in advance for any help.

George

I'm using Px 5.0 to DDE connect to BitWare Lite, so this might not be
exactly the same as your situation.  I assume you're using Px 7, since
the functions you're calling is not available in Px 5 AFAIK.

You might not be launching the "core" of the BitWare app.  In BWL this
is the program BitWare.exe.  Your DDE conversation is actually with
BitWare.exe, and not with the fax driver BitWareD.  Try manually
launching your "core", before running the script.  If this works, you
can adapt your code to go looking for the "core" on disk - if it's not
loaded already.

Attached is my Delphi unit code to do this - if you're interested.

Hennie Mouton

 
 
 

HELP with DDE

Post by Susan Gauderm » Tue, 02 Jul 1996 04:00:00



Quote:>I'm working on a OPAL script that would use DDE to fax a report to a number that is defined in
>the script through BitWare Client for Cheyenne FAXserve.  I'm trying to use the DDE to send the
>number to the client, but I just can't seem to initialize the DDE server.
>Would anyone please give me a pointer or some working code for something similar?  This is my
>current code (it's my first feeble attempt at DDE):
>1   if printerSetCurrent("BitWare Fax Driver,BITWARED,FAXserve") then
>2
>3   else
>4           msgInfo("Printer Setup", "Cannot select FaxServe as printer")
>5   endIf
>6   if FaxDDE.open("BitWare") then
>7           FaxDDE.excute("SendFax")
>8           FaxDDE.setItem("To")
>9           FaxDDE = "708-555-1212"               ;fax number
>10          FaxDDE.setItem("Resolution")
>11          FaxDDE = "Fine"                       ;setting resolution
>12          confRep.print(":REP:CONFIRM")
>13          FaxDDE.close()
>14  else
>15          msgInfo("Warning", "Fax client not available.")
>16  endIf
>-----------------------end---------------------
>When I run this code, it'll just display the warning message on line 15 and end.  I've also
>tried line 6 as if FaxDDE.open("BitWare", "SendFax"), and it did the same thing.  I'm at this
>moment cluelss.  HELP.
>Thanks in advance for any help.
>George

Dear George,
I have used DDE to send faxes before. Unfortunelty  I am unfamiliar
with BitWare Client for Cheyenne FAXserve, we use WinFax Pro. The
following code is used to send multiple reports to their respective
fax number. I hope this helps.

I did not include the custom method to set the default printer on the
push button if you need it let me know.

Just in case? Be sure and put the fax application in your path
statement in the autoexec.bat if you are using win3.1.

This is the code we use for WinFax:

method faxit(num1 String, FaxCompany String, FaxName String)
                        ; variables taken from send fax button
var
winfax          DDE
Fax#            String
num2            String  
FaxTime String          
FaxDate String          
temp            AnyType
Status          String
faxrep          Report
endvar

num2 = num1.substr(2,3) + num1.substr(6,3) + num1.substr(10,4)
Fax# = num2
Status = "FAX test"
Faxtime = "21:00:00"
Faxdate = ""

if winfax.open("FAXMNG","TRANSMIT")         ; opens the WinFax application

        then                                    ; sets the topic to transmit for DDEpoke
                winfax.SetItem("Sendfax")     ; sets WinFax DDEMacro to recieve

                                                ;recipient info
                temp = "recipient(\"" + Fax# + "\",\"" + FAXtime + "\",\"" +                                            
                FAXdate + "\",\"" + FAXname + "\",\"" + FAXcompany + "\")"
                message("FAXing recipient --> " + FAXcompany + ". . . ")
                winfax = temp  
                sleep(1000)    

                winfax.setItem("Status")              ; sets WinFax DDEMacro to get WinFax                                                                                                                            
                                                ;status
                winfax.execute("GoActive")
                message("getting Winfax Status")
                temp = winfax
                message("FAX Status --> ", temp)
                winfax.close()
                FaxRep.print(Faxname)
        else
                MsgStop("ERROR", "Error opening DDE CONTROL Link to Winfax")
endif
endmethod

Good Luck!
Susan Gauderman
http://www.*highway.net/~sgauderm/

 
 
 

1. Help for dde winword / demande d'aide sur dde winword

Je souhaite utiliser winword 97 partir de paradox 7
je russi lancer l'application  winword avec le document souhait mais
winword ne rend pas la main paradox qui se met en erreur
"DDE : le serveur spcifi ne rpond pas".

Voici le bout de programme que j 'ai cris :

method pushButton(var eventInfo Event)
Var
 Word_dde DDE
Endvar

;ouverture du fichier word
Word_dde.open ("C:\\Program Files\\Microsoft
Office\\Office\\WINWORD.EXE","C:\\pdoxwin\\smh\\cale.doc")

Word_dde.close()

endMethod

Patrice

2. Newbie Fast ODBC updates to Visual FoxPro ?

3. Need Help with DDE/Bookmarks for Word 6.0

4. How do I add a dropdown list to a Datagrid cell

5. Help with DDE and Microsoft Word, please!

6. AppExpert

7. Help with DDE

8. _GENSCRNX & SetupMthd

9. HELP DELPHI DDE CLIENT ACCESS 5250

10. Help with DDE connection with SQL Anywhere!

11. Need help with DDE

12. HELP with dde link to Excel

13. Help with DDE