PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 2024 → Assemblage DotNET en Windev
Assemblage DotNET en Windev
Iniciado por Chris Giraud, abr., 08 2020 3:36 PM - 1 resposta
#1
Publicado em abril, 08 2020 - 3:36 PM
Bonjour à tous,

Je débute en DotNet.
Je dois intégrer une API DOTNET dans mon projet Windev.
L ´ojectif est d´extraire chaque page d´un fichier PDF multipages en plusieurs fichiers images JPG.

J´ai dû génerer une DLL DotNet à partir du code C++ avec Visual Studio et je l´ai importer dans le projet Windev.
Nom dans le Projet : "ILOVEPDF" . Tout en ordre.

Toutefois je coince au moment à traduire les instructions du fournisseur de l`API DoNet

Code indiquer par le fournisseur de l´API DoNet :
5 phases pas à pas (.NET):

0) ///// Authentification : var api = new LovePdfApi("PUBLIC_KEY", "SECRET_KEY");
///// Exemplo de Sequência para função de Compressão
1) START TASK : var task = api.CreateTask<PDFtoJPGPTask>();
2) UPLOAD FILES : var file1 = taskCompress.AddFile("path/to/file/file1_name.pdf");
var file2 = taskCompress.AddFile("path/to/file/file2_name.pdf");
3) PROCESS FILES : taskPDFtoJPG.Process(new PDFtoJPGParams{PdfJpgMode = PdfJpgModes.extract});
4) DOWNLOAD : taskPDFtoJPG.DownloadFile();

Auriez-vous des suggestions pour me permettre d´avancer, s´il vous plait . Merci.

Cordialement


Chris
#2
Membro registado
946 mensagems
Popularité : +102 (110 votes)
Publicado em abril, 08 2020 - 5:49 PM
Bonjour,
si "L ´ojbectif est d´extraire chaque page d´un fichier PDF multi-pages en plusieurs fichiers images JPG." vous pouvez utiliser les fonctions natives de Widev :
i, NbPages est un entier
PdfName, JpegName est une chaîne
MonImage est une Image
PdfName = "D:\Temp\radare2book.pdf"

IF NOT fFichierExiste(PdfName) THEN RETOUR
NbPages = PDFNombreDePages(PdfName)
IF NbPages = 0 THEN RETOUR
Sablier(True)
FOR i=1 _TO_ NbPages
MonImage = PDFExtraitPage(PdfName, i)
JpegName = ChaîneConstruit("D:\Temp\radare2book_%1.jpg", NumériqueVersChaîne(i,"03d"))
IF NOT dSauveImageJPEG(MonImage, JpegName) THEN
Sablier(False)
Erreur(ErreurInfo(errMessage))
RETOUR
END
END
Sablier(False)


--
« L'erreur ne devient pas vérité parce qu'elle se propage et se multiplie ; la vérité ne devient pas erreur parce que nul ne la voit. » Gandhi
→ Voltar para WINDEV 2024