home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / hwi.zip / HWIPBK.DAT / PBKGETA.SMM < prev    next >
INI File  |  1995-05-10  |  5KB  |  438 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MAKRO.STY
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     4
  10.     5
  11.     Courier
  12.     1794
  13.     2310
  14.     514
  15.     517
  16.     1028
  17.     Tms Rmn
  18.     514
  19.     774
  20.     1284
  21.     517
  22.     1027
  23.     Helv
  24.     0
  25.     0
  26.     0
  27.     0
  28.     0
  29.     Times New Roman
  30.     0
  31.     0
  32.     0
  33.     0
  34.     0
  35. [revisions]
  36.     0
  37. [recfile]
  38.     
  39.     
  40.     1
  41.     1
  42.     3
  43.     8
  44.     0
  45.     0
  46. [lang]
  47.     7
  48. [desc]
  49.     Per DDE aus PAB/2 die Daten der angezeigten Adresse holen.
  50.     
  51.     
  52.     
  53.     
  54.     800171462
  55.     15
  56.     743875964
  57.     189
  58.     1
  59.     145
  60.     1065
  61.     4
  62.     7
  63.     
  64.     
  65.     
  66.     
  67.     
  68.     
  69.     1
  70. [prn]
  71.     HP LaserJet Series II
  72. [port]
  73.     LPT1.OS2
  74. [fopts]
  75.     0
  76.     1
  77.     0
  78.     0
  79. [lnopts]
  80.     2
  81.     Text
  82.     1
  83. [docopts]
  84.     5
  85.     2
  86. [GramStyle]
  87.     
  88. [lay]
  89.     Standard
  90.     516
  91.     [rght]
  92.         16838
  93.         11905
  94.         1
  95.         720
  96.         1077
  97.         1
  98.         1253
  99.         1440
  100.         2
  101.         1
  102.         0
  103.         1
  104.         0
  105.         2
  106.         1
  107.         720
  108.         10465
  109.         14
  110.         1
  111.         720
  112.         1
  113.         1440
  114.         1
  115.         2160
  116.         1
  117.         2880
  118.         1
  119.         3600
  120.         1
  121.         4320
  122.         1
  123.         5040
  124.         1
  125.         5760
  126.         1
  127.         6480
  128.         1
  129.         7200
  130.         1
  131.         7920
  132.         1
  133.         8640
  134.         1
  135.         9360
  136.         1
  137.         10080
  138.     [frght]
  139.     [lyfrm]
  140.         0
  141.         13184
  142.         0
  143.         15761
  144.         11907
  145.         16838
  146.         0
  147.         1
  148.         1
  149.         0 0 0 0 0 0 0
  150.         0
  151.         16777215
  152.         0
  153.     [frmlay]
  154.         16838
  155.         11907
  156.         1
  157.         1440
  158.         360
  159.         1
  160.         15941
  161.         1440
  162.         0
  163.         1
  164.         0
  165.         0
  166.         0
  167.         0
  168.         1
  169.         1440
  170.         10465
  171.         0
  172.     [txt]
  173. @Kopfzeile@<:#P29573120,P786432>Anzahl der <\D>nderungen <:X3,0;NumEdits>9<:X~3,0;NumEdits>
  174.  
  175. @Kopfzeile@<:#P29573120,P786432>Seite <:P11,0,> von <:X3,0;NumPages>1<:X~3,0;NumPages>
  176.  
  177. >
  178.     [hrght]
  179.     [lyfrm]
  180.         0
  181.         11136
  182.         0
  183.         0
  184.         11907
  185.         1253
  186.         0
  187.         1
  188.         1
  189.         0 0 0 0 0 0 0
  190.         0
  191.         16777215
  192.         0
  193.     [frmlay]
  194.         1253
  195.         11907
  196.         1
  197.         1440
  198.         0
  199.         1
  200.         360
  201.         1440
  202.         0
  203.         1
  204.         0
  205.         0
  206.         0
  207.         0
  208.         1
  209.         1440
  210.         10465
  211.         0
  212.     [txt]
  213. @Kopfzeile@<:#P29573120,P786432><:X3,0;GetDocInfo$(1)>PBKGETA.SMM<:X~3,0;GetDocInfo$(1)>
  214.  
  215. @Kopfzeile@<:#P29573120,P786432><:X3,0;Description>Per DDE aus Pbook/2 die Daten der angezeigten Adresse holen.<:X~3,0;Description>
  216.  
  217. @Kopfzeile@<:#P29573120,P786432>von:  JJA
  218.  
  219. @Kopfzeile@<:#P29573120,P786432><:X3,0;EditDatum %Dd><<EditDatum<;><:X~3,0;EditDatum %Dd> at <:X3,0;EditDatum %T6><<EditDatum<;><:X~3,0;EditDatum %T6>
  220.  
  221. @Kopfzeile@<:#P29573120,P786432>
  222.  
  223. >
  224. [elay]
  225. [l1]
  226.     0
  227. [edoc]
  228. <:#P31932416,P734003>' function to read all Powerbook/2 address fields in an the global array
  229.  
  230. <:#P31932416,P734003>' PBKAddress (the alloc and free of the arry are not part of this function)
  231.  
  232. <:#P31932416,P734003>' the array will be erased and than filled
  233.  
  234. <:#P31932416,P734003>' the function returns 1 if ok and 0 if failed
  235.  
  236. <:#P31932416,P734003>
  237.  
  238. <:#P31932416,P734003>FUNCTION PbookGetAddress()
  239.  
  240. <:#P31932416,P734003>
  241.  
  242. <:#P31932416,P734003>DEFINE FALSE 0
  243.  
  244. <:#P31932416,P734003>DEFINE TRUE  1
  245.  
  246. <:#P31932416,P734003>
  247.  
  248. <:#P31932416,P734003>DDEApp = "Pbook"
  249.  
  250. <:#P31932416,P734003>DDETopic ="GetAddressField"
  251.  
  252. <:#P31932416,P734003>i = 0
  253.  
  254. <:#P31932416,P734003>FOR i=1 TO 50
  255.  
  256. <:#P31932416,P734003>    SetGlobalArray("PBKAddress",i,"")
  257.  
  258. <:#P31932416,P734003>NEXT
  259.  
  260. <:#P31932416,P734003>
  261.  
  262. <:#P31932416,P734003>StatusBarMsg("Pbook/2 Adresse holen...")
  263.  
  264. <:#P31932416,P734003>id = DDEInitiate(DDEApp, DDETopic)
  265.  
  266. <:#P31932416,P734003>IF id=0
  267.  
  268. <:#P31932416,P734003>    Message("Pbook/2 ist nicht gestartet!")
  269.  
  270. <:#P31932416,P734003>    PbookGetAddress = FALSE
  271.  
  272. <:#P31932416,P734003>    EXIT FUNCTION
  273.  
  274. <:#P31932416,P734003>ENDIF
  275.  
  276. <:#P31932416,P734003>
  277.  
  278. <:#P31932416,P734003>FOR i=1 TO 50
  279.  
  280. <:#P31932416,P734003>    DDEItem = FormatNum$("","",0,i)
  281.  
  282. <:#P31932416,P734003>    StatusBarMsg("PBK/2 Adresse Feld {DDEItem}")
  283.  
  284. <:#P31932416,P734003>    SetGlobalArray("PBKAddress",i,DDEReceive$(id,DDEItem))
  285.  
  286. <:#P31932416,P734003>NEXT
  287.  
  288. <:#P31932416,P734003>
  289.  
  290. <:#P31932416,P734003>DDETerminate(id)
  291.  
  292. <:#P31932416,P734003>StatusBarMsg("...Pbook/2 Adresse ist angekommen!")
  293.  
  294. <:#P31932416,P734003>
  295.  
  296. <:#P31932416,P734003>PbookGetAddress = TRUE
  297.  
  298. <:#P31932416,P734003>
  299.  
  300. <:#P31932416,P734003>END FUNCTION
  301.  
  302. <:#P31932416,P734003>
  303.  
  304. <:#P31932416,P734003>
  305.  
  306. <:#P31932416,P734003>FUNCTION PbookAllocPBKAddress()
  307.  
  308. <:#P31932416,P734003>AllocGlobalVar("PBKAddress",50)
  309.  
  310. <:#P31932416,P734003>END FUNCTION
  311.  
  312. <:#P31932416,P734003>
  313.  
  314. <:#P31932416,P734003>
  315.  
  316. <:#P31932416,P734003>FUNCTION PbookFreePBKAddress()
  317.  
  318. <:#P31932416,P734003>FreeGlobalVar("PBKAddress")
  319.  
  320. <:#P31932416,P734003>END FUNCTION
  321.  
  322. <:#P31932416,P734003>
  323. >
  324.  
  325. [Embedded]
  326. 00004281
  327. >
  328. [macsum4] 3 57
  329. PbookGetAddress 0 0 6 5
  330. PbookAllocPBKAddress 850 0 1 39
  331. PbookFreePBKAddress 949 0 1 44
  332. [macse]
  333. 14 PbookGetAddress
  334. 29 0 PbookGetAddress
  335. 17 2
  336. 17 3
  337. 17 5
  338. 29 1 DDEApp
  339. 7 "Pbook"
  340. 8 1
  341. 17 6
  342. 29 2 DDETopic
  343. 7 "GetAddressField"
  344. 8 2
  345. 17 7
  346. 29 3 i
  347. 5 0
  348. 8 3
  349. 5 1
  350. 8 3
  351. 17 8
  352. 5 50
  353. 6 3
  354. 18 2
  355. 12 00000252
  356. 10 00000300
  357. 5 1
  358. 6 3
  359. 3 0
  360. 8 3
  361. 10 00000170
  362. 17 9
  363. 0 272 "PBKAddress" "{3}" ""
  364. 10 00000219
  365. 17 12
  366. 0 789 "Pbook/2 Adresse holen..."
  367. 17 13
  368. 29 4 id
  369. 0 8 "{1}" "{2}"
  370. 13
  371. 8 4
  372. 17 14
  373. 6 4
  374. 5 0
  375. 18 0
  376. 11 00000491
  377. 17 15
  378. 0 3 "Pbook/2 ist nicht gestartet!"
  379. 17 16
  380. 5 0
  381. 8 0
  382. 6 0
  383. 15
  384. 9
  385. 5 1
  386. 8 3
  387. 17 20
  388. 5 50
  389. 6 3
  390. 18 2
  391. 12 00000584
  392. 10 00000745
  393. 5 1
  394. 6 3
  395. 3 0
  396. 8 3
  397. 10 00000501
  398. 17 21
  399. 29 5 DDEItem
  400. 0 19 "" "" 0 "{3}"
  401. 13
  402. 8 5
  403. 17 22
  404. 0 789 "PBK/2 Adresse Feld {5}"
  405. 17 23
  406. 0 10 "{4}" "{5}"
  407. 13
  408. 0 272 "PBKAddress" "{3}" [X]
  409. 10 00000551
  410. 17 26
  411. 0 9 "{4}"
  412. 17 27
  413. 0 789 "...Pbook/2 Adresse ist angekommen!"
  414. 17 29
  415. 5 1
  416. 8 0
  417. 6 0
  418. 15
  419. 17 31
  420. 9
  421. 14 PbookAllocPBKAddress
  422. 29 0 PbookAllocPBKAddress
  423. 17 1
  424. 0 271 "PBKAddress" 50
  425. 6 0
  426. 15
  427. 17 2
  428. 9
  429. 14 PbookFreePBKAddress
  430. 29 0 PbookFreePBKAddress
  431. 17 1
  432. 0 266 "PBKAddress"
  433. 6 0
  434. 15
  435. 17 2
  436. 9
  437. 00004306
  438.