Hi,
I have an OLE Automation Server named DaisyEcrsys.

I have following functions and declarations in in help for it:

1. long ProgramFuel(short ECRNo, short FuelNo, BSTR FuelName, long PriceX100, short taxLink);
2. long ProgramDisp(short ECRNo, short DispNo, short FuelNo);
3. long ProgramDept(short ECRNo, short DeptNo, long PriceX100, BSTR DeptName, short DeptFlag);
4. long ProgramClerk(short ECRNo, short ClerkNo, BSTR ClerkName, short Password);
5. long ProgramPLU(short ECRNo,short PLUNo,short DeptNo,long PriceX100,BSTR PLUName,short PLUflags,long srtockQTY);
6. long ProgramPayment(short ECRNo, short PaymentNo, BSTR PaymentName);
7. long ProgramSysParam(short ECRNo, long PrintLines, short Feeds, long PrintEmptyRep, long DayRepPrint, long PeriodRepPrint, short EKLWriteFlag, short EKLFont);
8. long ProgramLogo(short ECRNo, short LineNo, BSTR LogoStr);
9.long ProgramPassOtn(short ECRNo, short percPlusX100, short percMinusX100, long FM_Pass, long XREP_Pass, long ZREP_Pass, long PROG_Pass, short ECRNumber);
10. long ProgramBitmap(short ECRNo, BSTR BMP_FileName);
11. long GetClerk(short ECRNo, short* ClerkNo, BSTR* ClerkName, short* Password);
12. long GetDept(short ECRNo, short DeptNo, long* PriceX100, BSTR* DeptName, short* DeptFlags);
13. long GetDisp(short ECRNo, short DispNo, short* FuelNo);
14. long GetFuel(short ECRNo, short FuelNo, BSTR* FuelName, long* PriceX100, short* TaxLink);
15. long GetLogo(short ECRNo, short LineNo, BSTR* LogoStr);
16. long GetPayment(short ECRNo, short PaymentNo, BSTR* PaymentName);
17. long GetPassOtn(short ECRNo, short* PercPlusX100, short* PercMinusX100, long* FMPass, long* XRepPass, long* ZRepPass, long* ProgPass, short* EcrNumber);
18. long GetPLU(short ECRNo, short PLUNo, short* DeptNo, long* PriceX100, BSTR* PLUName, short* Flags, long* StockQty);
19. long GetSysParam(short ECRNo, long* PrintLines, short* Feeds, long* PrintEmptyRep, long* DayRepPrint, long* PeriodRepPrint, short* EKLWriteFlag, short* EKLFont);
20. void GetErrorString(short ECRNo, long ErrorNo, BSTR* ErrorStr);

typedef struct {
unsigned char taxLink : 3;
unsigned char grpLink : 2;
unsigned char singleTrans : 1;
unsigned char fracQty : 1;
unsigned char likePLU : 1;
} DEPT_FLAG;

long - 4 byte; short - 2 byte; BSTR unicode string;


HOW TO IMPLEMENT IT IN VFP6 ?
I strart with xxx=CREATEOBJECT("DaisyECRsys.Program") --- OK

what than. How to pass pointers, unicode characters, etc ?
for ex. I have tried :
yy=xxx.ProgramLogo(1,1,"Test")
and error code is returned.