WDForge.org - Forums

[Résolu] L'équivalent de Picture1.hDC (VBasic) en WD 10 ?

Sujet: [Résolu] L'équivalent de Picture1.hDC (VBasic) en WD 10 ?
par axayacatl sur 10/11/2006 12:28:08

Bonjour,

Je commence à tester la version Express de WD 10; je suis bien content de toutes les fonctionnalités qui permettent d'accélérer le développement des IHM.

Par contre, je ne trouve pas beaucoup des infos pour accéder aux APIs externes; je suis en train d'utiliser une API externe pour visualiser fichiers PDF; en Visual basic c'est simple :

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

Mes débuts en windev :

	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")

le problème est d’interpréter cette ligne de VB :

FPDF_RenderPage Picture1.hDC, pdf_page, 0, 0, 400, 500, 1, 0

en windev :

pdf_render est un entier = AppelDLL32("fpdfview.dll", "FPDF_RenderPage",IMG_Image1..Valeur,pdf_page,0,0,400,500,1,0)

Probleme avec le parapettre : IMG_Image1..Valeur

Comme représenter le handle du bitmat VB Picture1.hDC en windev ?

Merci de vos réponses.