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:

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]

***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.

;)