Hola
egostar gracias por responder, bueno la forma en que me colocas tu respuesta no la entendi muy bien por eso te coloco mi consulta, quiero que sepas que cuando yo hago la consulta la imagen que traigo la guardo al disoc y la cargo en un Timage y despues de este Timage la trato de cargar a las celdas que corresponde aqui esta mi consulta
Código Delphi
[-]procedure TForm1.CargarImagenesLink();
var
id:string;
i:integer;
LmsImagen: TADOBlobStream;
Rect: TRect;
State: TGridDrawState;
ancho,Posicion: Integer;
begin
with form1.ADOQuery2 do
begin
Active:=false;
sql.Text:= 'select id from Post'+
' where Titulo ='+char(39)+Trim(NextGrid1.Cells[1,Grow])+char(39);
Active := true;
id := Fields.Fields[0].AsString;
Active:=false;
sql.Text:= 'SELECT temas_posteados.link,Foros.imagen from temas_posteados, foros'+
' where temas_posteados.id_foros = Foros.id_foros and temas_posteados.id ='+id;
Active := true;
ListBox1.Clear;
for i:=0 to recordcount-1 do
begin
ListBox1.Items.Add(Fields.Fields[0].AsString);
If Not Fields.Fields[1].IsNull Then
Begin
LmsImagen := TADOBlobStream.Create(TBlobField(Fields.Fields[1]),bmRead);
LmsImagen.SaveToFile(ExtractFilePath(Application.ExeName)+'foto.jpg');
Image1.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'foto.JPG');
Ancho := StringGrid1.ColWidths[2] div 2;
Posicion := Ancho - (Image1.Picture.Width div 2);
end;
next;
end;
end;
end;
espero que mi codigo se entienda saludos gulder gan