2 respuestas en este tema

[robert01]

Hola amigos

Estaba probando los controles MDO mercury, hay un pequeño programa que usa MDO y firebird en Lazarus. Tengo imágenes de clientes en un archivo y las quiero almacenar en un DBimage pero hay algo que no anda bien
Este es el código:

delphi

var
  strArchivo: String;
  imagen: TPicture;
 
begin
 
  //uses: Clipbrd, Jpeg
  if (OpenPictureDialog1.Execute) then
  begin
    strArchivo := OpenPictureDialog1.FileName;
    //Crea una variable para almacenar una imagen
    imagen := TPicture.Create();
    //Busca una imagen en el archivo y la pone en la variable
    imagen.LoadFromFile();
    //Pasa la imagen al clipboard
    clipboard.Assign(imagen);
    //Copia la imagen al DBImage
    DBImage1.PasteFromClipboard;
    //Libera la variable
    imagen.Free;
  end;

La unit jpeg no existe, debe tratarse de un error

¿Hay alguna otra forma de copiar una imagen del clipboard al DBImage ?

Saludos y gracias

[Caral]

Hola
Seguro no entiendo bien.

delphi

var
  strArchivo: String;
  imagen: TPicture;
begin
  if (OpenPictureDialog1.Execute) then
  begin
 imagen := TPicture.Create();
 imagen.LoadFromFile(OpenPictureDialog1.FileName);
 DBImage1.Picture:= imagen;
 imagen.Free;
  end;

No entiendo la necesidad del clipboard ?
Saludos

[robert01]

Hola Caral

Al contrario Novato, entiendes demasiado bien. Es la mejor solución.

Un saludo y muchas gracias

Robert01