如何用access保存完整的Html页面(包括图象),并在程序中显示!(30分)

  • 主题发起人 主题发起人 etea98
  • 开始时间 开始时间
E

etea98

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用access保存完整的Html页面(包括图象),并在程序中显示!
 
delphi的帮助
procedure TForm1.Button3Click(Sender: TObject);

var
Stream: TBlobStream;
S: string;
begin
with Table1 do
begin

Edit;

Stream := CreateBlobStream(FieldByName('Notes'), bmReadWrite);
try
Stream.Seek(0, 2); {Seek 0 bytes from the stream's end point}
S := ' This line will be added to the end.';
Stream.Write(PChar(S), Length(S));
finally
Stream.Free;
end;
Post;
end;
end;
 
图象也能保存吗?
 
后退
顶部