"Gillard" <gi************ *@hotmail.comwr ote in message
news:%2******** ********@TK2MSF TNGP04.phx.gbl. ..
hello
I get a dll with standard call in C ++ but I really do not know how to use
it in VB
anyone can help???
there is the declarations in cpp to use the functions
#ifndef SFPDF_H
#define SFPDF_H
#pragma comment(lib, "SFPDF.lib" )
typedef struct _SFPDFPOS {
DWORD dwX;
DWORD dwY;
DWORD dwW;
DWORD dwH;
DWORD dNewPage;
} SFPDFPOS, *LPSFPDFPOS;
DWORD __stdcall SFPDF_AddPage() ;
DWORD __stdcall SFPDF_Cell(doub le dwX, double dwY, double dwW, double dwH,
DWORD dwL, DWORD dwR, DWORD dwT, DWORD dwB, DWORD dwFill, DWORD dwAlign,
char *szTxt);
DWORD __stdcall SFPDF_DrawColor (DWORD dwR, DWORD dwG, DWORD dwB);
DWORD __stdcall SFPDF_DrawLine( DWORD dwX1, DWORD dwY1, DWORD dwX2, DWORD
dwY2);
DWORD __stdcall SFPDF_FillColor (DWORD dwR, DWORD dwG, DWORD dwB);
DWORD __stdcall SFPDF_GetHauteu r();
DWORD __stdcall SFPDF_GetLargeu r();
DWORD __stdcall SFPDF_Image(cha r *szFile, DWORD dwX, DWORD dwY, DWORD dwW,
DWORD dwH);
void __stdcall SFPDF_Init(DWOR D dwOrientation);
DWORD __stdcall SFPDF_LineWidth (double dWidth);
DWORD __stdcall SFPDF_Output(ch ar *szFile);
DWORD __stdcall SFPDF_SetFont(c har *szPolice, DWORD dwSize);
void __stdcall SFPDF_SetFontSi ze(DWORD dwSize);
DWORD __stdcall SFPDF_Text(int dwX, int dwY, char *szTxt);
DWORD __stdcall SFPDF_TextColor (DWORD dwR, DWORD dwG, DWORD dwB);
DWORD __stdcall SFPDF_TextFlow( int dwX, int dwY, DWORD dwW, DWORD dwH,
DWORD dwAlign, char *szTxt);
void __stdcall SFPDF_SetBreakP ageCallback(DWO RD dwAddr);
double __stdcall SFPDF_GetLargeu rTexte(char *szTxt);
#endif
To use the DLL use the following (as generated by the MS tool P/Invoke
Interop Assistant)
The following class can be used to access the DLL. Yous will have to change
the <Unknownto your dll name so that it will use the correct DLL.
Hope it helps and the tool can be found at MS if you have further items to
use.
LS
Partial Public Class NativeConstants
'''SFPDF_H ->
'''Error generating expression: Value cannot be null.
'''Parameter name: node
Public Const SFPDF_H As String = ""
End Class
<System.Runtime .InteropService s.StructLayoutA ttribute(System .Runtime.Intero pServices.Layou tKind.Sequentia l)>
_
Public Structure SFPDFPOS
'''DWORD->unsigned int
Public dwX As UInteger
'''DWORD->unsigned int
Public dwY As UInteger
'''DWORD->unsigned int
Public dwW As UInteger
'''DWORD->unsigned int
Public dwH As UInteger
'''DWORD->unsigned int
Public dNewPage As UInteger
End Structure
Partial Public Class NativeMethods
'''Return Type: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_AddPage",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_AddPage() As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''dwX: double
'''dwY: double
'''dwW: double
'''dwH: double
'''dwL: DWORD->unsigned int
'''dwR: DWORD->unsigned int
'''dwT: DWORD->unsigned int
'''dwB: DWORD->unsigned int
'''dwFill: DWORD->unsigned int
'''dwAlign: DWORD->unsigned int
'''szTxt: char*
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_Cell",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_Cell(ByVa l dwX As Double, ByVal dwY As
Double, ByVal dwW As Double, ByVal dwH As Double, ByVal dwL As UInteger,
ByVal dwR As UInteger, ByVal dwT As UInteger, ByVal dwB As UInteger, ByVal
dwFill As UInteger, ByVal dwAlign As UInteger, ByVal szTxt As System.IntPtr)
As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''dwR: DWORD->unsigned int
'''dwG: DWORD->unsigned int
'''dwB: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_DrawColor",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_DrawColor (ByVal dwR As UInteger, ByVal dwG
As UInteger, ByVal dwB As UInteger) As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''dwX1: DWORD->unsigned int
'''dwY1: DWORD->unsigned int
'''dwX2: DWORD->unsigned int
'''dwY2: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_DrawLine",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_DrawLine( ByVal dwX1 As UInteger, ByVal dwY1
As UInteger, ByVal dwX2 As UInteger, ByVal dwY2 As UInteger) As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''dwR: DWORD->unsigned int
'''dwG: DWORD->unsigned int
'''dwB: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_FillColor",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_FillColor (ByVal dwR As UInteger, ByVal dwG
As UInteger, ByVal dwB As UInteger) As UInteger
End Function
'''Return Type: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_GetHauteur" ,
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_GetHauteu r() As UInteger
End Function
'''Return Type: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_GetLargeur" ,
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_GetLargeu r() As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''szFile: char*
'''dwX: DWORD->unsigned int
'''dwY: DWORD->unsigned int
'''dwW: DWORD->unsigned int
'''dwH: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_Image",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_Image(ByV al szFile As System.IntPtr, ByVal
dwX As UInteger, ByVal dwY As UInteger, ByVal dwW As UInteger, ByVal dwH As
UInteger) As UInteger
End Function
'''Return Type: void
'''dwOrientatio n: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_Init",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Sub SFPDF_Init(ByVa l dwOrientation As UInteger)
End Sub
'''Return Type: DWORD->unsigned int
'''dWidth: double
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_LineWidth",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_LineWidth (ByVal dWidth As Double) As
UInteger
End Function
'''Return Type: DWORD->unsigned int
'''szFile: char*
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_Output",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_Output(By Val szFile As System.IntPtr) As
UInteger
End Function
'''Return Type: DWORD->unsigned int
'''szPolice: char*
'''dwSize: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_SetFont",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_SetFont(B yVal szPolice As System.IntPtr,
ByVal dwSize As UInteger) As UInteger
End Function
'''Return Type: void
'''dwSize: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_SetFontSize ",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Sub SFPDF_SetFontSi ze(ByVal dwSize As UInteger)
End Sub
'''Return Type: DWORD->unsigned int
'''dwX: int
'''dwY: int
'''szTxt: char*
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_Text",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_Text(ByVa l dwX As Integer, ByVal dwY As
Integer, ByVal szTxt As System.IntPtr) As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''dwR: DWORD->unsigned int
'''dwG: DWORD->unsigned int
'''dwB: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_TextColor",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_TextColor (ByVal dwR As UInteger, ByVal dwG
As UInteger, ByVal dwB As UInteger) As UInteger
End Function
'''Return Type: DWORD->unsigned int
'''dwX: int
'''dwY: int
'''dwW: DWORD->unsigned int
'''dwH: DWORD->unsigned int
'''dwAlign: DWORD->unsigned int
'''szTxt: char*
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_TextFlow",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_TextFlow( ByVal dwX As Integer, ByVal dwY As
Integer, ByVal dwW As UInteger, ByVal dwH As UInteger, ByVal dwAlign As
UInteger, ByVal szTxt As System.IntPtr) As UInteger
End Function
'''Return Type: void
'''dwAddr: DWORD->unsigned int
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_SetBreakPag eCallback",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Sub SFPDF_SetBreakP ageCallback(ByV al dwAddr As UInteger)
End Sub
'''Return Type: double
'''szTxt: char*
<System.Runtime .InteropService s.DllImportAttr ibute("<Unknown >",
EntryPoint:="SF PDF_GetLargeurT exte",
CallingConventi on:=System.Runt ime.InteropServ ices.CallingCon vention.StdCall )>
_
Public Shared Function SFPDF_GetLargeu rTexte(ByVal szTxt As
System.IntPtr) As Double
End Function
End Class
