請問各位,
使用Delphi 7 dbExpress如何存入圖檔到SQL Server的image欄位?
我搜尋到的都是BDE or ADO, 請各位幫忙.

謝謝

觀念差不多
只要將DBImage指向ClientDataSet的IMAGE欄位，即可指定

===================引 用 taxchen 文 章===================
請問各位,
使用Delphi 7 dbExpress如何存入圖檔到SQL Server的image欄位?
我搜尋到的都是BDE or ADO, 請各位幫忙.

謝謝

不好意思, 我不是很懂你的意思,
我的希望是拉一個image的元件, 讓user透過openDialog選擇jpg, 然後在輸入其他欄位的值
接著按下新增, insert到資料庫.

可否可以貼個sample code上來給我看一下.

感謝.

http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=38346


===================引 用 taxchen 文 章===================
不好意思, 我不是很懂你的意思,
我的希望是拉一個image的元件, 讓user透過openDialog選擇jpg, 然後在輸入其他欄位的值
接著按下新增, insert到資料庫.

可否可以貼個sample code上來給我看一下.

感謝.

我的程式碼如下:

var
sqlSelect : string;
ss : tmemorystream;
begin
SS:=TMemoryStream.Create;
self.Image1.Picture.Graphic.SaveToStream(ss);
sqlSelect := 'insert into img_table (img, description) values(:q1, :q2)';
self.SQLDataSet2.ParamByName('q1').Assign(self.Image1.Picture.Bitmap);
self.SQLDataSet2.ParamByName('q2').AsString := 'test1';
self.SQLDataSet2.CommandText := sqlSelect;
self.SQLDataSet2.ExecSQL(true);
end;

結果出現 SQL State: 42000, SQL Error Code: 102 (SQL Server 2008)
img欄位型態是image, 我是使用bmp檔。

謝謝

試試看這個

[CODE DELPHI]
var
TempSDS : TSQLDataSet;
TempStream : TMemoryStream;
begin
inherited;
TempStream := TMemoryStream.Create;
TempStream.LoadFromFile('C:/house.jpg');
TempSDS := TSQLDataSet.Create(nil);
TempSDS.SQLConnection := dm_NMSMaster.sct_Main;
TempSDS.CommandText :=
'UPDATE INDBILL SET NEW_COMMENTS = :BLOBPARAM WHERE RECORD_NO=2';
TempSDS.ParamByName('BLOBPARAM').SetBlobData (TempStream.Memory,TempStream.Size);
TempSDS.ExecSql;
TempSDS.Free;
TempStream.Free;
end;
[/CODE]
===================引 用 taxchen 文 章===================
我的程式碼如下:

var
sqlSelect : string;
ss : tmemorystream;
begin
SS:=TMemoryStream.Create;
self.Image1.Picture.Graphic.SaveToStream(ss);
sqlSelect := 'insert into img_table (img, description) values(:q1, :q2)';
self.SQLDataSet2.ParamByName('q1').Assign(self.Image1.Picture.Bitmap);
self.SQLDataSet2.ParamByName('q2').AsString := 'test1';
self.SQLDataSet2.CommandText := sqlSelect;
self.SQLDataSet2.ExecSQL(true);
end;

結果出現 SQL State: 42000, SQLError Code: 102 (SQL Server 2008)
img欄位型態是image, 我是使用bmp檔。

謝謝

請問一下, 
我開了一個form, 拉了TSQLConnection, TSQLDataset, 也加了兩個Params (img, desc)
結果執行時出現:
No Value for Parameter 'img'

把img拿掉, 只insert description, 也是出現
No Value for Parameter 'desc'

Image1已經載入, 也顯示出圖片.
請問這是什麼問題.

謝謝

procedure TForm1.btnInsClick(Sender: TObject);
var
sqlSelect : string;
msTemp : TMemoryStream;

begin
msTemp := TMemoryStream.Create;
try
self.Image1.Picture.Graphic.SaveToStream(msTemp);
// msTemp.LoadFromFile('c:\temp\dmr_48.bmp');
sqlSelect := 'Insert into img_table (img, description) values(:img, :desc)';
self.SQLDataSet1.ParamByName('img').SetBlobData(msTemp.Memory, msTemp.Size);
self.SQLDataSet1.ParamByName('desc').Value := 'Test';
self.SQLDataSet1.CommandText := sqlSelect;
self.SQLDataSet1.ExecSQL;
finally
msTemp.Free;
end;
end;