problemita de principiante

[chona]

Hola amigos, a ver si me pueden ayudar con esto, tengo una Base de Datos en InterBase 6 con una tabla de cuatro campos numero(varchar), tipo(varchar), articulo(blob(memo)), foto(blob). y quiero insertar registros desde codigo hecho en delphi 5, teniendo en cuenta que en el campo foto quiero guardar una imagen.

¿Cómo sería el código para insertar registros en dicha Base de Datos?. En lo posible les agradeceria si me detallaran un poco el código, lo que pasa es que soy novato
Los campos numero y tipo son claves. Desde ya muchísimas gracias

[tcp_ip_es]

Aquí te dejo un ejemplito donde meto una imagen en una tablita:

Código Delphi [-]
procedure TFFotos.CargarImagen2Click(Sender: TObject);
begin
 if opendialog1.Execute then
  begin
   TFotos.Append
   if TFotosFoto = NIL then TFotos.APPend
   else TFotos.Edit;
   TFotosFoto.LoadFromFile(opendialog1.FileName);
   TFotosTipo.Value := ansiuppercase(extractFileExt(opendialog1.FileName));
   TFotos.Post;
   TFotosAfterScroll(TFotos);
  end;
end;

procedure TFFotos.TFotosAfterScroll(DataSet: TDataSet);
var
 wTipo : byte;
 blob : tmemorystream;
 imJPG : TJpegImage;
begin
 blob := tmemorystream.create;
 imJPG := TJPEGIMage.create;
 try
   if TFotosTipo.Value = '.BMP' then wtipo := 0;
   if pos(TFotosTipo.Value,'.WMF.EMF') > 0 then wtipo := 1;
   if TFotosTipo.Value = '.JPG' then wtipo := 2;
   TFotosFoto.savetostream(blob);
   blob.position := 0;
   if blob.Size > 0 then
     case wtipo of
       0: Image1.Picture.bitmap.loadfromstream(blob);
       1: Image1.Picture.metafile.loadfromstream(blob);
       2:
        begin
         imJPG.LoadFromStream(blob);
         Image1.Picture.assign(imjpg);
        end;
     end
    else
     begin
      image1.picture.metafile := NIL;
      image1.picture.bitmap := NIL;
      image1.picture.Graphic := NIL;      
     end;
  finally
   Blob.Free;
   imJPG.Free;
  end;
end;

Espero que te sirva....

Saludos, Tony

[chona]

procedure TFFotos.CargarImagen2Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
TFotos.Append
if TFotosFoto = NIL then TFotos.APPend
else TFotos.Edit;
TFotosFoto.LoadFromFile(opendialog1.FileName);

***De donde sale esto "TFotosFoto?". Si mal no entiendo el TFotos es un IBDataSet y Foto es un campo de la tabla. ¿Al TFotosFoto hay que definirlo o te lo reconoce solo?, porque yo pongo IBDataSet1FOTOOO_01 y no compila, me da error Undeclared Identifier "IBDataSet1FOTOOO_01" ****
mi IBdataset = IBDataSet1
mi campo blob = FOTOOO_01

TFotosTipo.Value := ansiuppercase(extractFileExt(opendialog1.FileName));
TFotos.Post;
TFotosAfterScroll(TFotos);
end;
end;

[jachguate]

Empezado por chona

***De donde sale esto "TFotosFoto?". Si mal no entiendo el TFotos es un IBDataSet y Foto es un campo de la tabla. ¿Al TFotosFoto hay que definirlo o te lo reconoce solo?,

Es una referencia al un campo persistente, creado en diseño al hacer doble clic sobre TFotos y añadir campos con el botón derecho. Lo podes sustituir sin problemas por una expresión del tipo:

TFotos.FieldByName('Foto')

Por último, te recomiendo el uso de la etiqueta [delphi], [code] y [sql] para publicar trozos de código.

Hasta luego.