delphi 将数据库中的图像数据导出excel
发布网友
发布时间：2022-05-14 05:43
我来回答
共2个回答
热心网友
时间：2023-08-24 15:54
图像插入EXCEL你应该知道了
那我就告诉你怎么从数据库读出图片数据吧，主要是数据流的形式。
我贴一部分代码 我是DELPHI7+ORACLE,可以成功运行
先做点说明,
ADOTable_main是TADOTABLE控件，连接上数据库某一个表
当移动记录的时候，在Timage中显示对应的图片，以下是在ADOTable_mainAfterScroll事件中写入。
procere TFrm_base_cup_line.ADOTable_mainAfterScroll(DataSet: TDataSet);
var
jpg:TJPEGImage;
myStream:TmemoryStream;
begin
if (TBlobField(adotable_main.FieldByName('line_sample')).BlobSize>0) then
begin
try
jpg:=TJPEGImage.Create;
myStream:=TMemoryStream.Create;
TBlobField(adotable_main.FieldByName('line_sample')).SaveToStream(myStream);
myStream.Position:=0;
jpg.LoadFromStream(myStream);
image1.Picture.Assign(jpg);
finally
jpg.Free;
myStream.Free;
end;
end;
selquery(query_qt,'select shape_name from joint.base_cup_shape'
+' where shape_id='''+adoTable_main.fieldByName('shape_id').AsString+'''');
end;追问直接从dbgrideh或adoquery查询出来再直接导出来，可以否。不用再经图像转换。
热心网友
时间：2023-08-24 15:54
uses ComObj;
procere TForm1.Button1Click(Sender: TObject);
Var FExcel :OleVariant; //excel应用程序
FWorkBook :OleVariant; //工作表
FWorksheet:OleVariant; //工作薄
FPicture:OleVariant;
TmpStr:String;
begin
FExcel:= CreateoleObject('excel.Application');
FWorkBook:=FExcel.WorkBooks.Add; //新的工作表
FWorksheet:=FWorkBook.Worksheets[1];
FWorksheet.Select;
//插入图象并设置位置与大小
tmpstr:='f:\1.jpg';
FPicture:=FWorksheet.Pictures.Insert(tmpstr);
FPicture.Left:=10;
FPicture.Top:=10;
FPicture.width:=200;
FPicture.height:=200;
FPicture:=null;
FExcel.visible:=true;
end;追问要求是从数据库中导入
delphi 将数据库中的图像数据导出excel
先做点说明,ADOTable_main是TADOTABLE控件，连接上数据库某一个表 当移动记录的时候，在Timage中显示对应的图片，以下是在ADOTable_mainAfterScroll事件中写入。procedure TFrm_base_cup_line.ADOTable_mainAfterScroll(DataSet: TDataSet);var jpg:TJPEGImage;myStream:TmemoryStream;begin if (TBlobField(...
急!!在delphi中如何将sql server 2000数据库中的一个表中的内容全部导...
其中BUTTON5是你界面上的“导出”按钮，而WRITEEXCEL是需要你再PRIVATE里定义的一个函数，BDE或者ADO都无所谓，你只要把你的表对应好就可以了。procedure Tqueryform.Button5Click(Sender: TObject);var sname:string; //这里是用来取你界面上输入的EXCEL表名 begin sname:=edit1.Text;if sname<>''...
delphi 中如何将dbgrid中的数据导出为excel文件 (在没有安装excel的系 ...
建议用dbgrided控件，带导出功能，需要use DBGridEhImpExp 代码如下 procedure ExportGridEh(DBGridEh:TDBGridEh);var ExpClass:TDBGridEhExportClass;Ext:String;dlgsave:TSaveDialog;begin dlgsave:= TSaveDialog.Create(nil);begin dlgsave.Filter:='Microsoft Excel|*.xls|CSV (Comma delimited)|*.csv|T...
delphi中数据导出模块如何将mdb导出xls
用ADOConnection、ADOTable（ADOQuery）连接数据库， ExcelApplication, ExcelWorkbook 和 ExcelWorksheet 连接EXCEL，然后把数据库中的数据一个一个复制过来
delphi 中把 dbgrid 中的数据 保存到excel 表中
1、很重要的一点，，要先在delphi中引入Excel：“Project”——“Import Tpye Library”,在弹出的对话框中点击“Add”。找到你安装Excel的盘，，默认的安装路径：“C:\Program Files\Microsoft Office\OFFICE11”.安装的版本如果不同的话“OFFICE11”文件名会不一样。然后你可以找到“XL5CHS32.OLB”和...
如何用delphi编程实现将sql server数据库中的数据导入到excel中
SELECT * INTO Customer IN "c:\dbdemos.xls" "Excel 8.0;" FROM CUSTOMER 够清楚了吧？参考资料：Mastering Delphi 7 code\15 Working with ADO\JetImportExport
Delphi 中把 DBGrid 中的数据导出到 Excel 中
查看下excel中的数据，如果是个具体的值，那么就需要用函数的办法转换为具体的日期值，如果已经是具体的日期，那么只要扩大excel的显示范围就可以了
delphi 导出数据到excel 使数据保存为数值格式。
Sub 宏1()'' 宏1 宏 ''Selection.NumberFormatLocal = "0.00;[红色]0.00"End Sub 把你设置数据类型的操作录制为宏，然后在查看，就可以看到我上面那段代码。然后就知道怎么设置了 有什么不明白的一起讨论^_^
将delphi的数据导入excel
1、在单元文件加入ComObj,创建 Excel 表格，var ExcelID: Variant;ExcelID := CreateOleObject( 'Excel.Application' ); 这样就创建一个excel application 实例 2、添加新工作簿：ExcelID.WorkBooks.Add; 添加默认数量的工作簿 3、设置第1个工作表为活动工作表：ExcelID.WorkSheets1].Activate; 或 ...
delphi 自定义一个过程或函数把数据集导出excel,判断记录集是否打开,字 ...
//不用判断记录集是否打开呀?字段类型的话有点麻烦可以在sql语句里实现procedure TForm1.Save2Excel;var FileWay : array[0..1024] of char; FileName : string; i,j : Integer;begin GetTempPath(1024, FileWay); FileName := FileWay + 'abcd.xls'; FreeObj; DeleteFile(File...
