F ff_ff Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-15 #44 支持,从明天开始学JAVA了. 颇有感触。 当时是多么的豪情。 三月五号是我刚学java的第一天, 短短几个月,已经是第二个公司了。 可以老在生存线上徘徊。 唠叨两句,搂住莫怪。
X xie0930 Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-15 #45 我都存过19M if OpenDialog1.Execute then begin if OpenDialog1.FileName = '' then Exit; FileName := OpenDialog1.FileName; Mem := TMemoryStream.Create; Mem.LoadFromFile(FileName); Mem.Seek(0,soFrombegin ning); Query1.Close; Query1.DatabaseName := 'D:/BLOB'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUESNAME,:FILENAMES)'); Query1.ParamByName('Name').AsString := FileName; Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob); Query1.ExecSQL; Mem.Free; end; 如何取出blob字段內容并保存一個新的文件???
我都存过19M if OpenDialog1.Execute then begin if OpenDialog1.FileName = '' then Exit; FileName := OpenDialog1.FileName; Mem := TMemoryStream.Create; Mem.LoadFromFile(FileName); Mem.Seek(0,soFrombegin ning); Query1.Close; Query1.DatabaseName := 'D:/BLOB'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('INSERT INTO BLOBNAME(NAME,FILENAMES) VALUESNAME,:FILENAMES)'); Query1.ParamByName('Name').AsString := FileName; Query1.ParamByName('FileNAMES').LoadFromStream(Mem,ftBlob); Query1.ExecSQL; Mem.Free; end; 如何取出blob字段內容并保存一個新的文件???