SQL og billed

Jeg gør følgende når jeg gemmer billeder i min database:

Jeg bruger en ADOquery i stedet for en ADOconnection:

adoquery1.connection := ADOconnection1;
adoquery1.sql.clear;
adoquery1.sql.add('select * from navn');
adoquery1.active := true;
adoquery1.insert;
adoquery1.fieldbyname('navn').asstring := 'Xing';
adoquery1.fieldbyname('pic').asstring := ?;
adoquery1.post;
adoquery1.active := false;

--snip--

Når du skal vise billedet igen, kan du gøre det på følgende måde:

var
  Jpg: TJPEGImage;
begin
  if adoquery1.Active then
    adoquery1.Active := false;
  adoquery1.SQL.Clear;
  adoquery1.SQL.add('select * from billeder where recid='+recid);
  adoquery1.Active:=true;
  Jpg := TJPEGImage.Create;
  try
    Jpg.Assign(adoquery1.fieldbyname('pic'));
  finally
    adoquery11.Close;
  end;
end;

Håber det løser opgaven

mvh ib

Den linnie du skriver her

adoquery1.fieldbyname('pic').asstring := ?;

skal det bare være fx

adoquery1.fieldbyname('pic').asstring := 'C:\foto.jpg';

Eller hvad?

Øøøh, Jeg bruger kodestumpen i et cgi-program der benyttes til at uploade billeder på kunstkritik.dk. I det tilfælde kommer jpg-billedet som en række tegn i webrequest.content feltet, så det er nemt nok.

Nu er der ikke en string med billedet i en Timage, så mit bedste bud er at man benytter en assign, formentlig lidt ala:

var
  JpegImage: TJpegImage;


...
jpegimage.LoadFromFile('c:\foto.jpg');
adoquery1.FieldByName('feltnavn').Assign(jpegimage);
...

Jeg sidder faktisk selv og roder med dette pt, da jeg forsøger at lave en automatisk konvertering af størrelsen på de uploadede billeder

mvh ib@total-data.dk

Jeg har fundet 2 links som er ret gode

http://www.latiumsoftware.com/en/pascal/0011.php

http://delphi.about.com/library/weekly/aa030601c.htm

Efter jeg læste dem fik jeg det til at virke... :-)