tblobfield问题

Question

BDE设置的问题。在BDE Administrator中将BLOB SIZE改成足够大。(1024就是1M）

Answer 1

我用是可以，你看是否与数据库、BDE驱动的设置有关
procedure TForm1.Button2Click(Sender: TObject);
var
    t:TBlobField;
begin
    with Query1 do
    begin
        sql.Clear;
        sql.Add('select id,filename,image from tbimage');
        open;        while not eof do
        begin
            SavePictureDialog1.InitialDir := ExtractFilePath(FieldByName('filename').AsString);
            if SavePictureDialog1.Execute then
            begin
                t := FieldByName('IMAGE') As TBlobField;
                t.SaveToFile(SavePictureDialog1.FileName);
            end;
            next;
        end;
    end;
end;

Answer 2

同一楼楼上的：你的bde的配置有问题
具体参数及相关意义 请参考李维的书还有问题 mail to me 
[email protected]