проблема с BLOB

drak
Дата: 13.11.2007 10:47:08
Для сохранения изображения в базе SQL использую такой код. Выдает ошибку Access violation ...... на строке jpg.SaveToStream(Stream); помогите разобраться.
procedure TFClientPicture.cxButton2Click(Sender: TObject);
var
stream : TStream;
jpg : TJPEGImage;
begin
Stream := TMemoryStream.Create;
jpg.SaveToStream(Stream);
Stream.Position := 0;
with ADOImage do begin
ADOImage.Close;
ADOImage.SQL.Clear;
ADOImage.SQL.Add('INSERT INTO Project(Project) values (:Project) WHERE Num='+FClient.cxDBTextEdit1.Text);
ADOImage.Parameters.ParamByName('Project').LoadFromStream(Stream,ftBlob);
ADOImage.ExecSQL;
end;
end;
Ega
Дата: 13.11.2007 10:50:12
drak
Для сохранения изображения в базе SQL использую такой код. Выдает ошибку Access violation ...... на строке jpg.SaveToStream(Stream); помогите разобраться.
procedure TFClientPicture.cxButton2Click(Sender: TObject);
var
stream : TStream;
jpg : TJPEGImage;
begin
Stream := TMemoryStream.Create;
jpg.SaveToStream(Stream);
Stream.Position := 0;
with ADOImage do begin
ADOImage.Close;
ADOImage.SQL.Clear;
ADOImage.SQL.Add('INSERT INTO Project(Project) values (:Project) WHERE Num='+FClient.cxDBTextEdit1.Text);
ADOImage.Parameters.ParamByName('Project').LoadFromStream(Stream,ftBlob);
ADOImage.ExecSQL;
end;
end;


jpg Пушкин создавать будет?
Кстати, это также относится к удалению stream
Ega
Дата: 13.11.2007 10:50:58
with ADOImage do begin
ADOImage.Close;
ADOImage.SQL.Clear;
ADOImage.SQL.Add('INSERT INTO Project(Project) values (:Project) WHERE Num='+FClient.cxDBTextEdit1.Text);
ADOImage.Parameters.ParamByName('Project').LoadFromStream(Stream,ftBlob);
ADOImage.ExecSQL;
end;

рыдал.
A.K.
Дата: 13.11.2007 12:51:36
Ega
рыдал.

да уж...