|
DLL + Cache = <DYNAMIC LIBRARY LOAD>
#37526903
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: г. Кишинёв, Республика Молдова
Сообщения: 3 167
|
|
X_Shooter ,
Начните с примеров в \<install-dir>\dev\cache\callin .
Например: 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
#define _CRT_SECURE_NO_WARNINGS
#define ZF_DLL
#include <stdio.h>
#include "cdzf.h"
#include <string.h>
extern int test();
ZFBEGIN
ZFENTRY("TEST","ipcfdIPCFD",test)
ZFEND
int test(int a,int *b,char *c,float *d,double *e,int f,int *g,char *h,float *i,double *j)
{
printf("Input parameters: %d %d %s %g %g\r\n",a,*b,c,*d,*e);
printf("Output parameters: %d %d %s %g %g\r\n",f,*g,h,*i,*j);
f = 5 ;
*g = 6 ;
strcpy(h,"This is a test");
*i = 1 .5e8;
*j = 1234567890 . 123456789 ;
fflush(stdout);
return 0 ;
}
#dim ex As %Exception.AbstractException
set a=1
set b=2
set c="test_c"
set d=4.5
set e=2.45
set f=11
set g=22
set h="test_h"
set i=3.77
set j=1.34e4
try{
set res=$ZF(-3,"mycallout.dll","TEST",a,b,c,d,e,f,g,h,i,j)
w "res=",res,!
}catch ex{
write $system.Status.GetErrorText(ex.AsStatus(),"ru"),!
}
do $ZF(-3,"")
В терминале:
1.
2.
3.
USER>do ^test
Input parameters: 1 2 test_c 4.5 2.45
Output parameters: 11 22 test_h 3.77 13400
res=11,6,This is a test,150000000,1234567890.123456717
|
|
|
