🚀 go-pugleaf

Buster pisze:
> Witam.
> Mam taki mały problemik. Potrzebuję w bazie danych w polu typu blob 
> przechować obrazki. Rekordy dodaję poprzez komponent ADOCommand, 
> wpisując zapytanie insert bezpośrednio w kodzie programu czyli:
> ADOCommand1.CommandText := string_z_zapytaniem;
> 
> Wykombinowałem sobie coś takiego:
> Plik : TFileStream;
> Zdjecie : TStringStream;
> Plik := TFileStream.Create(nazwa_pliku_pobrana_z_Edita, fmOpenRead);
> Zdjecie := TStringStream.Create('');
> Zdjecie.CopyFrom(Plik, Plik.Size);
> 
> Następnie w zapytaniu, w miejscu, gdzie ten plik ma być umieszczam: 
> Zdjecie.DataString.
> Oczywiście to zdjęcie jest jedną ze składowych całego rekordu.
> Niestety ta metoda działa, źle. Otóż wywala się twierdząc, że jest jakiś 
> błąd w składni SQL. Podejrzewam, że chodzi tutaj o jakieś znaki 
> specjalne, które są w ciągu znaków reprezentujących obrazek. W PHP jest 
> taka fajna funkcja addslashes().
> 
> Czy mógłby ktoś mi podpowiedzieć co jest nie tak??
> 
Bez sensu jak lokata ;)

Użyj parametrów w SQLu, np. tak: "insert into (pole) values (:wartosc)", 
a później:
Parameters.ParamByName('wartosc').LoadFromStream(TwojStream, ftBlob)

Przy czym TwojFileStream to oczywiście plik załadowany za pomocą 
TFileStream i żadnych addslashes i ładowania do stringów :)

Pozdrawiam
Przemysław kotowski