Ir al contenido


Foto

Grabar una Imagen jpg jpeg en registro MySQL u otros


  • Por favor identifícate para responder
3 respuestas en este tema

#1 codicus

codicus

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 07 junio 2010 - 03:21

:cheesy:



delphi
  1. var
  2.     Jpg: TJpegImage;
  3.     Stream: TMemoryStream;
  4. // grabar la foto
  5.  
  6. // UTILIZAR LIBRERIA jpeg !!!
  7.  
  8. begin
  9.  
  10.  
  11. begin
  12.   Jpg := nil;
  13.   Stream := nil;
  14.   try
  15.  
  16.     modulodatos.visitantesADO.open;
  17.     modulodatos.visitantesADO. Append;
  18.     // Crea el Tjpeg y lo carga desde un archivo
  19.     Jpg := TJpegImage. Create;
  20.     Jpg.LoadFromFile('c:\video\temp\imagen1.jpg');
  21.     // Guarda la imagen en el Stream
  22.     Stream := TMemoryStream. Create;
  23.     Jpg. SaveToStream(Stream);
  24.     Stream. Position := 0;
  25.  
  26.     // Load the Blob field from the stream
  27.   TBlobField(modulodatos.visitantesADOfoto1).LoadFromStream(Stream);
  28. // resto de los campos
  29.  
  30.     Deletefile('c:\video\temp\imagen1.jpg');
  31. except
  32.     jpg. Free;
  33.     Stream. Free;
  34.     raise;
  35.   end;
  36.   jpg. Free;
  37.   Stream. Free;
  38. end;



Recuerden que debe ser un campo BLOB, o LONG BLOB ( por si acaso ). jeje
Saludos
  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 07 junio 2010 - 03:38

Que bien amigo codicus, muchas gracias por el aporte (y)

Salud OS

PD, coloque la etiqueta de Delphi para que se viera mejor el código. :)
  • 0

#3 codicus

codicus

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 07 junio 2010 - 03:57

O si . perdon, es que es la primera vez que posteo Codigo.
Saludos : )

*-)

(b)
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 08 junio 2010 - 09:25

Gracias por el aporte mi estimado (y)
  • 0




IP.Board spam blocked by CleanTalk.