Problema con tabla e imagenes

[acrophet]

A ver, creo que no me explique bien. Yo ya tengo un campo donde guardo el path+nombre de la imagen.
Ahora bien, me interesaria poder extraer eso del timage cuando ya la tengo cargada.

[^TxTeZ^]

pues creo que del TImage no puedes sacarlo, a menos que yo sepa.

¿Como tienes grabada la imagen en la BD, como campo BLOB o simplemente guardas un String con la ruta de la image?

Bueno en todo caso, dudo que del TImage puedas sacar el nombre del archivo ya que es un Stream

[acrophet]

Pues yo lo que hacia era guardar en la bd la ruta de la imagen y de ahi visualizarla en el Timage. Hasta ahi bie, pero cuando queria sacar la ruta de la misma imagen que estaba visualizando, pues venian los problemas.
Visto que no puedo hacer esto que busco, pues me he puesto a intentarlo con un campo blob y el dbimage.
El problema vino, cuando si que me visualiza ficheros jpg, pero no me los guarda en la bd. No tengo ni idea de porque (si, si puse el uses jpeg...), pero solo guarda los bmp en la bd. Total, que me he hecho una rutina que me pasa el jpg a bmp antes de meterlo en la tabla y santas pascuas, que el tema este me tiene ya bastante mareado.

Muchas gracias a todos los que me han ayudado!!!!
Un saludo y hasta la proxima.

[^TxTeZ^]

Yo hago lo siguiente para guardar una imagen:

 procedure TFAFLogos.GuardaLogo;
begin
  try
	with (DataSource1.DataSet as TClientDataSet) do
	begin
	  if FAFMLogoCliente.FileName <> '' then
	  begin
		Edit;
		(FieldByName('LOGO') as TBlobField).LoadFromFile(FAFMLogoCliente.FileName);
		Post;
	  end;
	end;
  except
	Forense.Autopsia (ClassName + '.GuardaFoto');
	raise;
  end;
end;

[Delfino]

para guardar imagenes en campo blob yo lo hago asi:

campoblob.loadfromfile(archivo);

para visualizarlas desde un campo blob lo hago con un TImage pq el TDBImage permite unicamente los bmp:

procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);
var bs : TStream; jp : TJpegImage; buff: Word;
begin
bs := DataSet.CreateBlobStream(CampoBlob,bmRead);
try
bs.Seek(0,soFromBeginning);
if bs.Read(buff,2) > 0 then
begin
bs.Seek(0, soFromBeginning);
case buff of
$4D42: image1.Picture.Bitmap.LoadFromStream(bs);
$0000: image1.Picture.Icon.LoadFromStream(bs);
$0001,$CDD7: image1.Picture.Metafile.LoadFromStream(bs);
$D8FF: begin
jp := TJpegImage.Create;
jp.LoadFromStream(bs);
image1.Picture.Assign(jp);
FreeAndNil(jp);
end
else image1.Picture := nil;
end;
end;
finally
FreeAndNil(bs);
end;
end;

hasta el momento me va muy bien con esta manera, pruebalo a ver si te sirve.

[paren]

Empezado por Delfino

para guardar imagenes en campo blob yo lo hago asi:

campoblob.loadfromfile(archivo);

para visualizarlas desde un campo blob lo hago con un TImage pq el TDBImage permite unicamente los bmp:

...
 case buff of
 $4D42: image1.Picture.Bitmap.LoadFromStream(bs);
 $0000: image1.Picture.Icon.LoadFromStream(bs);
 $0001,$CDD7: image1.Picture.Metafile.LoadFromStream(bs);
 $D8FF: begin
 jp := TJpegImage.Create;
 jp.LoadFromStream(bs);
 image1.Picture.Assign(jp);
 FreeAndNil(jp);
 end
...

hasta el momento me va muy bien con esta manera, pruebalo a ver si te sirve.

Hola delfino, de donde sacaste los valores del buffer??
Por ejemplo que valor usar si el archivo es un gif o un png o un wmf