blob alana kaydedilen resmi default programla açmak

[underwater]

Arkadaşlar merhaba;

Delphi 7 ve MS SQL kullanıyorum.
Resim dosyalarını sql tablomdaki image tipli alana kaydediyorum.

Kaydettiğim resim dosyasını bilgisayardaki default programla direkt nasıl açabilirim?
(Mümkünse bunu harddisk içinde temp dosya oluşturmadan yapmak istiyorum çünkü kullanıcı hakları dosya oluşturmaya engel olabiliyor)
Örnek kod olursa çok sevinirim.

Şimdiden çok teşekkür ederim.

[yhackup]

Merhaba,
Öncelikle Databaseye fotoğraf kaydetmeni hiç önermem gereksiz şişirirsin database'yi
Onun yerine Fotoğrafi bir dizine kaydedip, fotoğraf dizinini mssqle kaydet, program açılır ikende sqlden dizini okuyup image tipli alana fotoğrafın dizinini belirtirsin açılır.

[underwater]

Haklısın fakat sadece JPG formatında ve maximum 1024x768 boyutunda dosyaları kabul ediyorum.
Dizine kaydetmek çok kullanıcılı sistemlerde mantıklı değil.

[yhackup]

Haklısın fakat sadece JPG formatında ve maximum 1024x768 boyutunda dosyaları kabul ediyorum.
Dizine kaydetmek çok kullanıcılı sistemlerde mantıklı değil.

hmm c# ta yapmıştım bunu delphide deneyim becerebilirsem yazarım buraya

[xozcanx]

FileStream

[yhackup]

Dostum Button13 ile jpeg resim kaydedebildim, Button14 ile de okuyup ımage atabildim sen çeki düzen verirsin kodlara kolay gelsin.

Kod: Tümünü seç

procedure TForm20.Button13Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
        begin
          Image1.Picture.LoadFromFile(OpenDialog1.FileName);
          with MyQuery1 do
          begin
            close;
            SQL.Clear;
            SQL.Add('INSERT INTO uzaks (s1,s2,jpeg) VALUES (:s1,:s2,:jp)');
            ParamByName('s1').AsString := 'acdacddsa';
            ParamByName('s2').AsString := 'acdscdsa';
            ParamByName('jp').LoadFromFile(OpenDialog1.FileName,ftBlob);
            Execute;
          end;
        end;
end;

procedure TForm20.Button14Click(Sender: TObject);
var
 g:TGraphic;
begin
      g := TJpegimage.Create;
     with MyQuery1 do
          begin
            close;
            SQL.Clear;
            SQL.Add('SELECT jpeg FROM uzaks WHERE s2=:ac;');
            ParamByName('ac').AsString := 'ac';
            open;
            g.Assign(FieldByName('jpeg'));
            Image1.Picture.Assign(g);
          end;
end;

[underwater]

ben de birşeyler yaptım neticeyi yazacağım sizede.