Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-08-2014
koiji koiji is offline
Miembro
 
Registrado: oct 2007
Posts: 21
Poder: 0
koiji Va por buen camino
Post los componentes son IBX gracias espero tus respuestas ecfisa

Cita:
Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas
Código SQL [-]
CREATE TABLE IMAGENES2 (
    ID     INTEGER NOT NULL,
    IMAGE  BLOB SUB_TYPE 0 SEGMENT SIZE 80
);
Responder Con Cita
  #2  
Antiguo 27-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola koiji.

Cita:
Hola ecfisa estoy utilizando IBX ese codigo servira para poder insertar una imagen dentro de firebird las tablas que estoy utilzando seran las correctas
Entonces un ejemplo para almacenar imágenes de tipo JPG con el componente TIBQuery de IBX:
Código Delphi [-]
...
implementation

uses JPeg;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.Filter:= 'Archivo de imágen | *.JPG;*.JPEG';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  J: TJPEGImage;
  MS: TMemoryStream;
begin
  if OpenDialog1.Execute then
  begin
    J:= TJPEGImage.Create;
    MS:= TMemoryStream.Create;
    try
      J.LoadFromFile(OpenDialog1.FileName);
      J.SaveToStream(MS);
      MS.Position:= 0;
      IBQuery1.Close;
      IBQuery1.SQL.Text:= 'INSERT INTO IMAGENES2(ID,IMAGE) VALUES(:ID,:IMG)';
      IBQuery1.ParamByName('ID').AsInteger:= 13;
      IBQuery1.ParamByName('IMG').LoadFromStream(MS, ftBlob);
      IBQuery1.ExecSQL;
    finally
      J.Free;
      MS.Free;
    end;
  end;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 27-08-2014
koiji koiji is offline
Miembro
 
Registrado: oct 2007
Posts: 21
Poder: 0
koiji Va por buen camino
Hola ecfisa un ultimo favor

Cita:
un ultimo favor acabo de ver que los timage no soportan png como podria hacer que visualize las imagenes png Gracias
Cita:
yo siempre lo he utilizado asi pero no visualiza los png
Código Delphi [-]
 if not OpenDialog1.Execute then Exit;
      // Image1.Picture.LoadFromFile((OpenDialog1.FileName));

Última edición por ecfisa fecha: 28-08-2014 a las 03:29:38. Razón: ortografía
Responder Con Cita
  #4  
Antiguo 27-08-2014
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.671
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
koiji, Preguntas distintas en hilos distintos.
De todas formas, haz una búsqueda por los foros, se ha tratado en múltiples ocasiones.
Responder Con Cita
  #5  
Antiguo 28-08-2014
koiji koiji is offline
Miembro
 
Registrado: oct 2007
Posts: 21
Poder: 0
koiji Va por buen camino
mostrar una imagen png en un Timge desde firebird con delphi2010

Cita:
Hola ecfisa tengo una pregunta como podria hacer cuando tengo guardada una imagen PNG dentro de firebird y mostrarla a un Timagen mi codigo es el siguiente pero solo funciona para JPG y estoy utilizando un dataset o tambien ibquery
Código Delphi [-]
IBDataSet1.Open;
IBDataSet1.next;
jpg :=TjpegImage.Create;
jpg.Assign(TblobField(IBDataSet1.FieldByName('DESCRIPCION')));
image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
Responder Con Cita
  #6  
Antiguo 28-08-2014
Avatar de Casimiro Noteví
Casimiro Noteví Casimiro Noteví is offline
Merodeador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.671
Poder: 10
Casimiro Noteví Tiene un aura espectacularCasimiro Noteví Tiene un aura espectacular
No crees preguntas repetidas en hilos distintos, gracias
Responder Con Cita
  #7  
Antiguo 28-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola koiji.

Si hubieras continuado con los mensajes en este hilo no hubiera preguntado la versión de Delphi

Creo que a partir de Delphi 2009 la VCL incluye la clase TPngImage y no necesitas código de terceros.
Código Delphi [-]
uses
  PngImage;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Guardar una Imagen a PDF atrus Gráficos 8 12-08-2008 10:36:03
Guardar Imagen en Firebird BuenaOnda Firebird e Interbase 11 20-03-2008 12:15:30
Guardar imagen franfl Firebird e Interbase 1 29-02-2008 09:02:54
Guardar una imagen en un DB lore Conexión con bases de datos 5 20-03-2007 17:07:48
Guardar imágen en una carpeta FTP... gatsu PHP 5 21-09-2004 18:34:40


La franja horaria es GMT +2. Ahora son las 22:19:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi