Comment afficher-imprimer une image(jpg) avec RAVE ?
Nyou
Messages postés4Date d'inscriptionjeudi 30 septembre 2004StatutMembreDernière intervention25 janvier 2008
-
25 janv. 2008 à 12:11
cs_patbour
Messages postés2Date d'inscriptionsamedi 26 février 2005StatutMembreDernière intervention12 janvier 2010
-
30 mars 2009 à 18:28
Bonjour,
Je developpe une appli de base de données avec un champs texte qui prend le chemin complet du fichier image. Dans Delphi, je l'ouvre avec openPicture. Je voudrais pouvoir afficher et imprimer mes images (jpg) à partir de mes états RAVE. Y-a-t-il quelqu'un pour me donner la procedure pas à pas à mettre en place??????
C'est très urgent ça brule sous mon siège,
J'utilise Delphi 7 sous une pale forme WindowsXP, Base de données MySql.
ilies007
Messages postés1Date d'inscriptionvendredi 2 novembre 2007StatutMembreDernière intervention14 mars 2008 14 mars 2008 à 17:38
bonjour;
j'ai besoins d'un programme en c++ pour Etude et implémentation d’un algorithme cryptographique basé sur les
Courbes Elliptiques dans un système de communication moderne.
cs_patbour
Messages postés2Date d'inscriptionsamedi 26 février 2005StatutMembreDernière intervention12 janvier 2010 30 mars 2009 à 18:28
Voila une procedure trouvé sur www.developpez.com
faite par SergioMaster que j'ai adapté est c'est parfait
// Importe l'image de l'article dans un fichier JPG et l'importe a Rave en BMP
procedure TDM.RvDataSetConnectionArticleValidateRow(
Connection: TRvCustomConnection; var ValidRow: Boolean); //crée le 28.03.2009,
// source sur le forum rave developpez.com par SergioMaster
var
MyPage: TRavePage;
RaveBitmap : TraveBitMap;
ImageJPEG : TJpegImage;
NomImage, Extension : string;
jpeg:Boolean;
begin
MyPage := RvProjectAttribArt.ProjMan.FindRaveComponent('ReportArticle.page1',nil) AS
TRavePage;
RaveBitmap := RvprojectAttribArt.ProjMan.FindRaveComponent('bitMap1',MyPage) As
TRaveBitMap;
NomImage:=Uppercase(IBQuery_ArticleART_FHR_IMG.Value);
Extension:=ExtractFileExt(NomImage);
jpeg:=(trim(Extension)='.JPG');
if fileExists(NomImage) then
begin
if assigned(raveBitMap) AND jpeg then
begin
imageJPEG := TJPEGImage.Create;
try
imageJPEG.LoadFromFile(NomImage);
ImageJPEG.DIBNeeded;
RaveBitMap.Image.Assign(ImageJPEG);
finally
ImageJPEG.Free;
end;
end
else begin
RaveBitmap.Image.LoadFromFile(NomImage);
end;
end
else RaveBitMap.Image:=nil;
end;