我真希望您是救世主，可這年頭哪來的救世主哇。。如果您是熱心人就請進吧！有回報的。

Question

在delphi中如何將圖片字段的內容導入excel中、數據庫是sqlserver，字段名是image
用的是execl1applicate對象

Answer 1

cctv11111 (雄)：
   大家都顶怎么办？？ :(
CDSoftwareWj(95927):
   这个吗………哈哈哈哈

Answer 2

update ... set image=:Img ...
ParamByName('IMG').AsBlob= your image stream.
如果用的是BDE，把Blob缓冲开大一点。

Answer 3

思路：将图片存为临时文件，然后再导入到Excel中。

Answer 4

// Excel也可做为数据库的，
// ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.xls; Extended Properties="Excel 8.0;HDR=Yes;"'; 
// 然后分别建立两个数据源, 依次读源表记录，
// 对每条记录，目标字段直接Assign(源字段)即可。
// 随手写写，未经测试，不过我想应该没问题。

Answer 5

var Src, Dst: TAdoQuery;
begin
  Src := TAdoQuery.Create(nil);
  Dst := TAdoQuery.Create(nil);
  Src.ConnectionString := 'Driver={SQL SERVER};Server=.;Database=SrcDatabase;UID=sa;PWD=;';
  Dst.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DstDatabase.xls; Extended Properties="Excel 8.0;HDR=Yes;"'; 
  //.......

Answer 6

我的其它數據都可以導入EXCEL當中就是這個圖片字段沒法導入excel。請問各位有什麼方法能導入圖片和控制圖片在EXCEL當中的大小嗎。

Answer 7

用流！先把图片读到一个流中，以流的方式（二进制）存入SQL　SERVER的IMAGE中

Answer 8

使用剪贴板，读出图象后，保存至剪贴板，在paste到excel里

Answer 9

如何paste。。
我想了很多辦法就是沒辦法paste上去。。

Answer 10

uses comobj;
var  App, Book: Variant; 
begin
  try
    App := CreateOleObject('Excel.Application');
    Book := CreateOleObject('Excel.Sheet');
  except
    Application.MessageBox('你的机器没有安装Microsoft Excel','使用Microsoft Excel', MB_OK + MB_ICONWarning);    Exit;  end;  try
    Book := App.workbooks.Add;
    App.Visible:=True;
    book.ActiveSheet.Pictures.Insert('E:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg');  end;可以的哦，还有很多问题等着你去解

Answer 11

圖片已經導進去了。謝謝各位了。不過控制圖片在excel當中的大小又成了下一個難題了。一碼歸一碼了我給分了。