var
MyBlob: TStream;
Myfs:TFileStream;
begin
path:='D:\ICON\exit.bmp';
Table1.Active:=true;
table1.Last;
table1.Insert;
try
begin
MyBlob:=table1.CreateBlobStream(table1.FieldByName('photo'),bmReadWrite);
MyBlob.Seek(0, soFromBeginning);
Myfs:= TFileStream.Create(path, fmOpenRead);
try
begin
MyBlob.CopyFrom(Myfs, Myfs.Size);
end;
finally
Myfs.Free
end;//try
end;
finally
MyBlob.Free
end; //try
table1.Post;//当图片大于100K时报错 Ivalide Blob Length不知哪里有错请指教.我用的数据库是SQL SERVER 2000
end;
MyBlob: TStream;
Myfs:TFileStream;
begin
path:='D:\ICON\exit.bmp';
Table1.Active:=true;
table1.Last;
table1.Insert;
try
begin
MyBlob:=table1.CreateBlobStream(table1.FieldByName('photo'),bmReadWrite);
MyBlob.Seek(0, soFromBeginning);
Myfs:= TFileStream.Create(path, fmOpenRead);
try
begin
MyBlob.CopyFrom(Myfs, Myfs.Size);
end;
finally
Myfs.Free
end;//try
end;
finally
MyBlob.Free
end; //try
table1.Post;//当图片大于100K时报错 Ivalide Blob Length不知哪里有错请指教.我用的数据库是SQL SERVER 2000
end;
MyBlob: TBlobStream;
Myfs:TFileStream;
begin
path:='D:\ICON\exit.bmp';
Table1.Active:=true;
table1.Last;
table1.Insert;
try
begin
MyBlob:=table1.CreateBlobStream(table1.FieldByName('photo'),bmReadWrite) as tblobstream;
MyBlob.Seek(0, soFromBeginning);
Myfs:= TFileStream.Create(path, fmOpenRead);
try
begin
MyBlob.CopyFrom(Myfs, 0);
end;
finally
Myfs.Free
end;//try
end;
finally
MyBlob.Free
end; //try
table1.Post;
应该是数据集的限制吧!