delphiDBImage1显示数据库中图片超过1000行时出错streamreaderror.请问怎么回事。
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,DBXpress,FMTBcd,Grids,DBGrids,DB,DBClient,Provider,
SqlExpr,StdCtrls,ComCtrls,ExtCtrls,DBCtrls,SimpleDS,Mask,jpeg;
type
TForm1=class(TForm)
SQLConnection1:TSQLConnection;
SimpleDataSet1:TSimpleDataSet;
SimpleDataSet1ID:TIntegerField;
SimpleDataSet1XM:TStringField;
SimpleDataSet1XB:TStringField;
SimpleDataSet1SFZ:TStringField;
SimpleDataSet1ZS:TStringField;
SimpleDataSet1BJ:TStringField;
SimpleDataSet1JSZ:TStringField;
SimpleDataSet1CL:TStringField;
SimpleDataSet1ZP:TBlobField;
SimpleDataSet1Card_ID:TStringField;
SimpleDataSet1User_ID:TStringField;
SimpleDataSet1TEL1:TStringField;
SimpleDataSet1TEL2:TStringField;
SimpleDataSet1TEL3:TStringField;
DBGrid1:TDBGrid;
DBNavigator1:TDBNavigator;
DataSource1:TDataSource;
Button1:TButton;
Label1:TLabel;
DBEdit1:TDBEdit;
Label2:TLabel;
DBEdit2:TDBEdit;
Label3:TLabel;
DBEdit3:TDBEdit;
Label4:TLabel;
DBEdit4:TDBEdit;
Label5:TLabel;
DBEdit5:TDBEdit;
Label6:TLabel;
DBEdit6:TDBEdit;
Label7:TLabel;
DBEdit7:TDBEdit;
Label8:TLabel;
DBEdit8:TDBEdit;
Label9:TLabel;
Label10:TLabel;
DBEdit9:TDBEdit;
Label11:TLabel;
DBEdit10:TDBEdit;
Label12:TLabel;
DBEdit11:TDBEdit;
DBEdit12:TDBEdit;
DBEdit13:TDBEdit;
Label13:TLabel;
DBImage1:TDBImage;
procedureButton1Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
procedureTForm1.Button1Click(Sender:TObject);
begin
SimpleDataSet1.Active:=False;
SimpleDataSet1.DataSet.CommandText:='select*fromstudent';
SimpleDataSet1.Active:=True;
end;
end.
分 -->
|
