图片存取问题中类型的声明以及图片大小的转换 ( 积分: 100 )

我把图片存进数据库后在导入excel表是 最后总是报错：作为源列1（‘image’）的数据对于所指定的缓冲区来讲太大。怎么办啊。还有我在程序中写的TJpegimage总是提示[Error] Unit2.pas(41): Undeclared identifier: 'TJPEGImage' 我还没搞清怎么样声明TJpegImage 同志们帮帮忙啊 别笑我太菜啊

我把图片存进数据库后在导入excel表是 最后总是报错：作为源列1（‘image’）的数据对于所指定的缓冲区来讲太大。怎么办啊。还有我在程序中写的TJpegimage总是提示[Error] Unit2.pas(41): Undeclared identifier: 'TJPEGImage' 我还没搞清怎么样声明TJpegImage 同志们帮帮忙啊 别笑我太菜啊

uses
jpeg

unit InsertBMP;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
ComObj,//必须有这个
Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
OpenExcel: TButton;
InsertBMP: TButton;
ExitPro: TButton;
procedure OpenExcelClick(Sender: TObject);
procedure InsertBMPClick(Sender: TObject);
procedure ExitProClick(Sender: TObject);
private
XLApp,WorkBook,WorkSheet:Variant;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

//打开Excel 按钮事件
procedure TForm1.OpenExcelClick(Sender: TObject);
begin
XLApp:=CreateOleObject('Excel.Application'); //对各版本的Excel都适用
WorkBook:=XLApp.WorkBooks.add;
xlapp.visible:=true;
WorkSheet:=WorkBook.sheets[1];

end;

//插入图片按钮事件
procedure TForm1.InsertBMPClick(Sender: TObject);
begin

//插入一张图片在当前位置
WorkSheet.Pictures.Insert('C:/WINDOWS/安装程序.bmp');

end;

//退出程序事件
procedure TForm1.ExitProClick(Sender: TObject);
begin

xlapp.quit;
close;
end;

end.

多谢Avalon 仁兄 我试一试

老兄 你的程序不错啊 多谢多谢

Avalon 分我已加给你了啊 以后还望 多多指教