有關DLL的調用;急!急!急! (100分)

dastone · 2003-06-07

在C中的'PDFENC32.DLL'的定義如下: typedef struct s_pdfobject {    uint16 ioType;             /* Input/Output */    uint16 ioDirection;        /* File/Callback/Memory */    PDFSIZET nLen;             /* (Bytes to encode)/(Bytes written) */    union {       LPMEMBUF lpMemBuffer;       struct {          LPFNPDFIO lpfnCallback;          LPVOID lpAppArg;       } func;       struct {          FILEHANDLE hFile;          FILEPOS nInitPos;          Bool fMustClose;       } file;       struct {          LPMEMBUF lpMem;      /* For CF_TEXT clipboard input */          uint16 fmtOutput;    /* API definition for output format */       } clip;    } access;    Bool fIsHuge;    LPVOID lpState;         /* internal state information/buffer */ } PDFObject; typedef PDFObject FAR *LPPDFObject; Bool PDFAPI MakeMemoryObject( LPPDFObject lpObj, uint16 ioDirection, LPVOID lpBase ); 在delphi中的調用定義如下: Type   pTPDFObj=^TPDFOBJ ;   TPDFOBJ =record    ioType: Integer;            // Input/Output    ioDirection: Integer;       // File/Callback/Memory    nLen

ouble;                 // (Bytes to encode)/(Bytes written)    // Type specific information storage    dummy1

ouble;    dummy2

ouble;    dummy3

ouble;    dummy4

ouble;    dummy5

ouble;    dummy6

ouble;    dummy7

ouble; end; Function MakeMemoryObject(lpObj : pTPDFObj; var ioDirection : Integer; lpBase : Variant) : Integer;stdcall;external 'PDFENC32.DLL' name 'MakeMemoryObject'; 調用: function TForm1.EncodeSourceFile:Boolean; var   nErrCode:Integer;   ObjInput

TPDFObj; begin   Result:=True;     ObjInput:=new(pTPDFObj);     try       nErrCode:=MakeFileNameObject(ObjInput,PDFINPUT,pChar    (SourceFileName));       if nErrCode<0 then       begin         ShowMessage('Encode Error!');         Result:=False ;       end;     finally       dispose(ObjInput);     end;     end; end; 可是無論怎樣調用都出錯,不知道我的定義對不對,有那位大俠幫忙,不勝感謝!

YFeral · 2003-06-07

建议你在C++中调用一下，如果正常的话再在Delphi中调用一次。

pihome · 2003-06-07

很可能还是你的定义有问题 给你转换一下 s_pdfobject = packed record   ioType: uint16;             // Input/Output   ioDirection: uint16;        // File/Callback/Memory   nLen: PDFSIZET;             // (Bytes to encode)/(Bytes written)   access: packed record     case Integer of       0: (            lpMemBuffer: LPMEMBUF;         &nbsp

;       1: (            func: packed record              lpfnCallback: LPFNPDFIO;              lpAppArg: LPVOID;            end;         &nbsp

;       2: (            file: packed record              hFile: FILEHANDLE;              nInitPos: FILEPOS;              fMustClose: Bool;            end;         &nbsp

;       3: (            clip: packed record              lpMem: LPMEMBUF;      // For CF_TEXT clipboard input              fmtOutput: uint16;    // API definition for output format         &nbsp

;     end;   end;   fIsHuge: Bool;   lpState: LPVOID;         // internal state information/buffer end; PDFObject   = s_pdfobject; LPPDFObject = ^PDFObject;

有關DLL的調用;急!急!急! (100分)

dastone

Unregistered / Unconfirmed

YFeral

Unregistered / Unconfirmed

pihome

Unregistered / Unconfirmed

Similar threads