着急！！！！(100分)

A

alei_nb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #1

table1.Close ;
table1.Open ;
table1.last ;
table1.Edit ;
a:=TBlobStream.Create(TBlobField(Table1.FieldByName('modul_text')) , bmread);
str.LoadFromStream(a);


运行出错说 access voilation 奇怪啊，为什么a 会access voilation???

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #2

你的a没释放？

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #3

Table1.FieldByName('modul_text')) 会不会是空?

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #4

先看a有没有被赋值
再来loadfrom

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #5

>>TBlobStream.Create(TBlobField(Table1.FieldByName('modul_text')) , bmread);

var a:TStringStream;
str:TJPEGImage;
......
try
a:=TStringStream.Create('');
TBlobField(Table1.FieldByName('modul_text')).SaveToStream(a);
a.Position:=0;
str:=TJPEGImage.Create;
str.LoadFromStream(a);
finally
......
end;

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
a: TBlobStream;
str: TStream;
begin
a:= TBlobStream.Create(Table1Notes, bmRead);
try
Table1.Edit;
str := Table1.CreateBlobStream(Table11.FieldByName('Remarks'), bmReadWrite);
try
Str.CopyFrom(a, a.Size);
Table1.Post;
finally
str.Free;
end;
finally
a.Free; //一定要释放掉
end;
end;

 

H

HostingLian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #7

低级错误。
a:=TBlobStream.Create(TBlobField(Table1.FieldByName('modul_text')) , bmread);
中字段‘modul_text’的定义有问题.你必须定义为流字段(Memo,Text等,各种数据库支
持的类型不一样).

 

Z

zdb123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #8

同意 hostinglian的说法！