obtener el path de una imagen cargado en un Timage

[[Delphius]]

enecumene, de lo que se... no puede obtenerse el path de una imagen cargada en un TImage, en modo de ejecución no es posible hacer algo como:

Código Delphi [-]
path := Image1.Filename, // tampoco es válido esto:
path := Image1.Picture.Filename

Ahora, bien en tiempo de ejecución puedes cargar una imagen con el comando

Código Delphi [-]
Image1.Picture.LoadFromFile('LaPathCompleta');

Ahora... la manera de ingresar la path hacia la base de datos sería:
1. Tener una variable para usar como parámetro para una query. Digamos por ejemplo algo como:

Código Delphi [-]
var MiRuta: string;

2. Entonces... para abrir la imagen, cargas en MiRuta el FileName, usando por ejemplo un picturedialog:

Código Delphi [-]
MiRuta := OpenPictureDialog1.Filename;
Image1.Picture.LoadFromFile(MiRuta);

2. Ahora en un query haz algo como:

Código Delphi [-]
Miquery.Close;
Miquery.ParamByName('MiParametro').AsString := MiRuta;
Miquery.SQL.add('insert into..... //bla... bla...');
Miquery.SQL.add('campoPath = :MiParametro'); // el parámetro va precedido de los dos puntos
Miquery.ExecSQl. // O es Miquer1.Open .... La verdad que no me acuerdo...

Lo estroy escribiendo al vuelo... no tengo Delphi abierto en estos momentos. Pero creo que con algo asi puedes almacenar la path.

Por cualquier cosa avisa, o busca en los foros porque este tema es "moneda corriente".

Saludos,