Delphi, MS SQL Server 2000, ADO - jak wrzucić obrazek

0

Hej,

Pisze program, w którym chciałbym mieć możliwość uploadu oraz downloadu zdjęcia z bazy.

W gre wchodzi użycie DBImage.

Jak to zrealizować za pomocą ADO?

W bazie mam pole tabeli typu image.

0
  DBImage1.Picture.LoadFromFile('plik.bmp');
  DBImage1.Picture.SaveToFile('plik.bmp');
0
JacobTheLiar napisał(a)
  DBImage1.Picture.LoadFromFile('plik.bmp');
  DBImage1.Picture.SaveToFile('plik.bmp');

twoje rozwiązanie wczytuje obrazki z dysku a nie z bazy.
tu masz jakiś przykład zobacz może coś sie przyda:
http://www.delphi3000.com/articles/article_1267.asp?SK=

0
puchi napisał(a)

twoje rozwiązanie wczytuje obrazki z dysku a nie z bazy.

No tak! faktycznie ja mam inaczej rozwiązany ten problem. Ale ja dałem tylko przykład na wysłanie do bazy, podobnie może wyglądać z zapisaniem.

  if OpenDlg.Execute then
    begin
       if not ListaTable.Modified then
         ListaTable.Edit;
       TBlobField(ListaTable.FieldByName('Obraz')).LoadFromFile(OpenDlg.FileName);
    end;

a potem akceptuj

procedure TUslugiFrm.AkceptujBtnClick(Sender: TObject);
begin
  if ListaTable.Modified then
    begin
      Listatable.Post;
    end;
end;

Teraz wiem, że lepiej na pamięć nie wystawiać postów dzięki puchi

1 użytkowników online, w tym zalogowanych: 0, gości: 1