Newsgroups : Borland : borland.public.delphi.internet.winsock : 2006 Jan : D2006 variants conversion error

www.cryer.info
Managed Newsgroup Archive

D2006 variants conversion error

Subject:D2006 variants conversion error
Posted by:"Roby DP
Date:Thu, 5 Jan 2006 15:10:06

please, can somebody can be able run this code piece under D2006?

in delphi5 this code permit to customize the print page footer and header
of iwebbrowser2:

var
  vaIn :OleVariant;
           vaOut :OleVariant;

begin
     Header := '&w';
           Footer := '[Pag. &p - &P]';
           vaIn := Null;
           vaOut :=Null;

   try
          SafeArrayCopy(PSafeArray(TVarData(VarArrayOf([Header,
Footer])).VArray), psa);

VarData(vaIn).VType := varArray or varByRef;

SafeArrayCopy(Psa, PSafeArray(TVarData(vaIn).VArray));

PrintBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, VaIn,
VaOut);

....

in D2006 except: variant conv not supported

Please help me, thank you.

Roby

Replies:

www.cryer.info
Managed Newsgroup Archive