Доброго времени суток!
Столкнулся с проблемой записи изображения в БД MySQL.
Имеем:
Главную форму приложения с PageControl. 1 - TfmMain. - AutoCreate
Форму с компонентами БД (пробовал стандартные dbExpress и Zeos) 2 - TfmSQL. - AutoCreate
Форму со списком записей 3 - TfmStore. - no AutoCreate
Форму редактирования записи БД 4 - TfmEdit. - no AutoCreate (Ввиду ряда причин не используются стандартные компоненты DataControl)
В процессе работы создается динамически 3 - TfmStore и кладется на закладку PageControl главной формы.
| Код |
procedure TfmMain.storExecute(Sender: TObject);
var
form: TForm;
t: TTabSheet;
begin
t := TTabSheet.Create(pcMain);
with t do
begin
PageControl := pcMain;
pcMain.ActivePageIndex := pcMain.PageCount - 1;
form := TfmStore.Create(Self);
Caption := form.Caption;
form.Parent := t;
form.BoundsRect := t.ClientRect;
form.Align := alClient;
form.Show;
Visible := True;
end;
end;
|
Если пользователь желает просмотреть/изменить запись БД, то создается динамически 4 - TfmEdit и вызывается через ShowModal.
| Код |
procedure TfmStore.EditExecute(Sender: TObject);
begin
try
with TfmEdit.Create(Self) do
begin
if ShowModal = mrOk then
begin
// Ok
end;
Free;
end;
except
//except
end;
end;
|
на форме 4 - TfmEdit имеем TImage для отображения картинки из БД
для записи картинки использую код:
| Код |
procedure TfmEdit.AddExecute(Sender: TObject);
var
st: TStream;
begin
st := TMemoryStream.Create;
Image.Picture.Bitmap.SaveToStream(st);
st.Position := 0;
with SQLQuery do
begin
SQL.Clear;
SQL.Add('UPDATE store SET img1=:im1 WHERE plu='+Edit1.Text+' LIMIT 1');
Params.ParseSQL(SQL.Text, true);
with Params.CreateParam(ftBlob, 'im1', ptInput) do Clear;
Params.ParamByName('im1').LoadFromStream(st, ftBlob);
ExecSQL;
Params.ParamByName('im1').Free;
end;
st.Free;
end;
|
Код для чтения:
| Код |
procedure TfmEdit.ViewExecute(Sender: TObject);
var
st: TStream;
begin
st := TMemoryStream.Create;
with SQLQuery do
begin
SQL.Clear;
SQL.Add('SELECT img1 FROM store WHERE plu='+Edit1.Text);
Open;
st := CreateBlobStream(FieldByName('img1'), bmRead);
Image.Picture.Bitmap.LoadFromStream(st);
Close;
end;
st.Free;
end;
|
Ошибок при работе не возникает, но в БД картинка хранится искаженной :(
вот что получается
До записи в БД  , после записи в БД
В чем геморой? До меня ни как не дойдет...
З.Ы
если использовать тот же код для чтения и записи картинок из/в БД на главной форме, без динамически вызванных форм 3 и 4, то картинки не искажаются
З.З.Ы.
MySQL-5.0 (win32, linux), CodeGear 2007, winXPpro sp3 |
