Private Sub Command1_Click()
Dim pdf_doc As Long
Dim pdf_page As Long
pdf_doc = FPDF_LoadDocument("c:\pdf\documents\mydoc.pdf", "")
If pdf_doc = 0 Then
MsgBox "Cann't load document."
Exit Sub
End If
pdf_page = FPDF_LoadPage(pdf_doc, 0)
FPDF_RenderPage Picture1.hDC, pdf_page, 0, 0, 400, 500, 1, 0
FPDF_ClosePage pdf_page
FPDF_CloseDocument pdf_doc
End Sub
ChargeDLL("fpdfview.dll")
pdf_doc est un entier = AppelDLL32("fpdfview.dll","FPDF_LoadDocument",sDocument, Null)
pdf_NoPages est un entier = AppelDLL32("fpdfview.dll", "FPDF_GetPageCount", pdf_doc)
Info(pdf_NoPages) //ça marche, donc le doc est bien LOAD
pdf_page est un entier = AppelDLL32("fpdfview.dll", "FPDF_LoadPage", pdf_doc,"0")
FPDF_RenderPage Picture1.hDC, pdf_page, 0, 0, 400, 500, 1, 0
pdf_render est un entier = AppelDLL32("fpdfview.dll", "FPDF_RenderPage",IMG_Image1..Valeur,pdf_page,0,0,400,500,1,0)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4748&post_id=19714