<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Hola, si los datos son una imagen y quieres cargarla desde el disco,
te paso las rutinas que uso. Si lo que quieres es tener la imagen en
un campo blob en la base de datos, tendría que rebuscar pues lo hice
hace mucho. Creo recordar que era pasando el campo blob a un
TMemoryStream y de ahí hacer un assign al TImage destino.<br>
<br>
Espero te pueda servir.<br>
Un saludo.<br>
<br>
<br>
procedure TPedidos_Print.OnEnterRect(Memo: TStringList; View:
TfrView);<br>
Var<br>
vImage : TImage;<br>
vFileDir: String;<br>
vFileNam: String;<br>
begin<br>
if assigned( View ) and<br>
(View.Name = 'Picture1') and<br>
(View is TfrPictureView)<br>
then<br>
try<br>
vImage := TImage.Create( nil );<br>
vFileDir := CfgApplication.Path +
CfgApplication.ConfigINI.DirImages;<br>
vFileNam := qryDetail.FieldByName('Imagen').asString;<br>
try<br>
if LoadImgFromFile( vImage, vFileDir + vFileNam ) then<br>
TfrPictureView(View).Picture.Bitmap.Assign(
vImage.Picture.Bitmap )<br>
else<br>
TfrPictureView(View).Picture.Clear;<br>
finally<br>
FreeAndNil( vImage );<br>
end;<br>
except<br>
TfrPictureView(View).Picture.Clear;<br>
end;<br>
end;<br>
<br>
function LoadImgFromFile(Image: TImage; FileName: String): Boolean;<br>
begin<br>
Result := False;<br>
Image.Picture.Clear;<br>
<br>
try<br>
if (FileName <> '') and FileExists(FileName) then<br>
begin<br>
Image.Picture.LoadFromFile(FileName);<br>
Result := True;<br>
end;<br>
except<br>
end;<br>
end;<br>
<br>
El 26/08/11 19:07, Francisco Javier Solis Palma escribió:
<blockquote cite="mid:4E57D2E9.50003@gmail.com" type="cite">Hola a
todos, tengo un pequeño problema, resulta que quiero implementar
dentro de un programa que realice, una rutina que permita imprimir
credenciales, algunos datos serán fijos otros los tomara de la
tabla de datos, el punto es que logro colocar todos los datos
menos la foto de la persona, alguien me podría orientar, quizá el
tema ya se halla comentado en la lista de boletines que he
recibido no he encontrado nada relacionado, les agradezco de
antemano.
<br>
<br>
_______________________________________________
<br>
Lazarus-es mailing list
<br>
<a class="moz-txt-link-abbreviated" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a>
<br>
<a class="moz-txt-link-freetext" href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a>
<br>
</blockquote>
<br>
<div class="moz-signature">-- <br>
<hr>
<big><b>ARTEX TRADING sa</b></big><br>
<b><i>Dpto. Informática</i></b><br>
<b>José Antonio Cuello Principal</b></div>
</body>
</html>