Архив форумов ЦИТФорума

[Demidova Aigul]

Крутые Делфисты!!! Я новичок в Delphi! Помогите мне, глупой, найти ошибку в SQL-коде! Почему-то у меня вместо картинки в таблице в базе пустота добавляется. И в строке ParamByName('0').Assign(Form1.image_mapp.Picture) тоже пустота, когда в отладчике курсор поставить на Form1.image_mapp.Picture. В чем ошибка? Подскажите, пожалуйста!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Код был такой (с помощью этого кода хотела выбрать картинку из OpenPictureDialog1.FileName, а потом добавить эту картинку в таблицу "map_path" в поле "path"):

with modif_path do
if OpenPictureDialog1.Execute then begin
Form1.image_mapp.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Close;
SQL.Clear;
SQL.Add('insert into map_path (path,InventoryID) values (:0, :1)');
ParamByName('0').Assign(Form1.image_mapp.Picture);
ParamByName('1').AsInteger := dm.Query1InventoryID.AsInteger;
Prepare;
ExecSQL;
Query1.Close;
Query1.Open;
end;

Пожалуйста, помогите мне!!!!!!!!!!!!!!!!
_________________
новичок

[Wladimir]

Попробуй:

blob : TMemoryStream;
...

blob = TMemoryStream.Create;
... . Picture.Bitmap.SaveToStream(blob);
blob.Seek(soFromBeginning, 0);
... . ParamByName(где картинка).LoadFromStream(blob);
blob.Free;

[Demidova Aigul]

Спасибо за подсказку!
Моим способом у меня сегодня тоже получилось исправить код. Теперь работает. Вот так получилось:

[code]
with modif_path do

if OpenPictureDialog1.Execute then begin
Form1.image_mapp.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Close;
SQL.Clear;
SQL.Add('insert into map_path (path,InventoryID) values (:0, :1)');
ParamByName('0').LoadFromFile(OpenPictureDialog1.FileName,ftGraphic);
ParamByName('1').AsInteger := dm.Query1InventoryID.AsInteger;
Prepare;
ExecSQL;
Query1.Close;
Query1.Open;
end;



А с потоками, если честно, у меня нет опыта работы. А хотелось бы испробовать и этот способ. Не знаю, так что-ли нужно написать (только за стул покрепче советую держаться, чтоб от смеха не упасть):

[code]
var blob : TMemoryStream;
......


with modif_path do
if OpenPictureDialog1.Execute then begin
Form1.image_mapp.Picture.LoadFromFile(OpenPictureDialog1.FileName);
blob = TMemoryStream.Create;
Form1.image_mapp.Picture.Bitmap.SaveToStream(blob);
blob.Seek(soFromBeginning, 0);

Close;
SQL.Clear;
SQL.Add('insert into map_path (path,InventoryID) values (:0, :1)');
ParamByName('0').LoadFromStream(blob);
ParamByName('1').AsInteger := dm.Query1InventoryID.AsInteger;
Prepare;
ExecSQL;
blob.Free;
Query1.Close;
Query1.Open;
end;
_________________
новичок

[Wladimir]

Ну да, вроде так мы когда-то и делали.
LoadFromFile - фактически тот же LoadFromStream, просто поток при этом создаётся уничтожается автоматически внутри метода работы с файлом.

[Demidova Aigul]

OK! Спасибо! Сейчас нет времени, но чуть позже испробую этот способ с потоками (может, какие-нибудь ошибки вылезут).
_________________
новичок