三层中如何用clientdataset通过sql语句加载word文件到sql数据库中,急求大家帮助(200分)

wwwone · 2006-08-04

三层中如何用clientdataset通过sql语句加载word文件到sql数据库中,急求大家帮助 sql数据表的字段是: 字段名  类型 bh      char doc     image 我在客户端通这样的sql语句上传和下载文件 上传文件: procedure Tbjltz_form.BitBtn3Click(Sender: TObject); var Stream: TMemoryStream; begin  OpenDialog1.Filter := 'WORD文档(*.DOC)|*.DOC';  if OpenDialog1.Execute then  begin    try      Stream := TMemoryStream.Create;      Stream.Position := 0;      Stream.LoadFromFile(OpenDialog1.filename);  with dm.ClientDataSet_Add do  begin    Close;    CommandText := '';    CommandText := 'insert into 基本资料 (bh,doc) values

bh,:doc)';    Params.ParamByName('bh').value:='003';    Params.ParamByName('doc').LoadFromStream(Stream,ftblob);    Execute;    end;    finally      Stream.Free;    end;  end; end; 操作过程中没有出错 下传文件 begin  with dm.ClientDataSet_Add do  begin  Close;  CommandText := '';  CommandText := 'select * from  基本资料';  open;  last;  try    TBlobField(dm.ClientDataSet_Add.FieldByName('doc')).savetoFile('c:/temp.doc');  except    showmessage('读取error!');    exit;  end; end; end; 操作过程也没有出错 但下载的文件的内容只有一个字,并是乱码的,(如果上传到的话,是可以全部看到内容的) 请大家帮助,为什么上传时,没有把文件内容上传上去尼,是什么原因,请帮写写好吗

adden_lian · 2006-08-04

Params.ParamByName('doc').LoadFromStream(Stream,ftblob);前面加Stream.Position := 0; 看看

wwwone · 2006-08-04

还是不行啊,那位高手出手帮帮啊,比较急

gz_temp · 2006-08-04

大家好，为什么大富翁的帐号确认功能不能用了，不做确认就没法提问，我是新注册的用户，为此我注册了两个了。能提问的大伙能不能反应一下啊。

wwwone · 2006-08-04

可能是网站出了问题

adden_lian · 2006-08-04

你先到数据库看一下doc字段有没有内容，确认一下是保存的问题还是加载有问题

蓝叶菱 · 2006-08-04

不知道楼主做什么本身TBLOB可以直接流还要传递?   简单问题复杂化,直接INSERT传递流感觉你缺少什么.

dcs_dcs · 2006-08-04

太难了点好像

egetrich · 2006-08-04

unction THRDM.DownFile(strSelSql, UpField, FileName: string): string; var varData

levariant; begin  // result:=self.socketCon.AppServer.DownBlobData(strSelSql,UpField,varData); //成功返回 ok      self.GetSqlResult(cdsTmp,strSelSql);   if cdsTmp.RecordCount>0 then begin      try       TblobField(cdsTmp.FieldByName(UpField)).SaveToFile(FileName);       result:='ok';      except       result:='保存到'+FileName+'失败';      end;   end   else result:='没有找到指定记录'; end; function THRDM.UpFile(aStrWhere,upFieldName,upFile:string;otherUpFieldsVal:string=''): string; var fileOle

levariant; begin    result:='失败';    try     p.ChangeCursor();     fileOle:=FileToVariant(upFile);    result:=self.sckCon.AppServer.UpBlobData(aStrWhere,upFieldName,fileOle,otherUpFieldsVal);     //对指定表和字段上传BLOB值,系统自动判断增加还是修改,最后一个参数把字段名和值用;隔开    // self.UpFile('select * from 生产_调度日志表 where ID=1','调度日志内容',Upfile);     if result='ok' then result:='成功';    finally     p.RestoreCursor;    end; end; ------------------------------------- function THRRDM.UpBlobData(const strSelSql, strUpField: WideString;  var varData: OleVariant; const FieldsAndVal: WideString): OleVariant;  var                    //更新BLOB字段内容,根据strSelSql查找,有则更新,无或者多就新增                       //通常strSelSql 根据主键来定位                       //FieldsAndVal 用来传入当要新增的时候需要一起提交的字段=值;隔开   tmpDb:TadoDataSet ;   tmpStream:TmemoryStream;   whereStr:string;   FieldValList:TstringList;   i:integer; begin    result:='发生未知错误';    tmpDb:=TadoDataSet.Create(self);    try     tmpDb.Connection:=TheMainForm.ADOConnection1;           if FieldsAndVal='' then  begin //表示更新                DBRunSQL(tmpDb,strSelSql);                 tmpStream:=TmemoryStream.Create;                   try                       VariantToStream(varData,tmpStream);                       tmpDb.Edit;                       tBlobField(tmpDb.fieldbyname(strUpField)).LoadFromStream(tmpStream);                       tmpDb.Post;                      // tBlobField(tmpDb.fieldbyname(strUpField)).SaveToFile('c:/ldl');                       result:='ok';                   finally                       tmpStream.Free;                   end;             end             else   //以下新增             begin //Begin11   1               //               DBRunSQL(tmpDb,'select top 1 * from '+after('from',strSelSql));               tmpStream:=TmemoryStream.Create;                   try                       VariantToStream(varData,tmpStream);                       tmpDb.insert;                       tBlobField(tmpDb.fieldbyname(strUpField)).LoadFromStream(tmpStream);                        FieldValList:=TstringList.Create;                         TRY                              FieldValList.Text:=stringReplace(FieldsAndVal,';',chr(13),[rfReplaceAll]);                             for  i:= 0 to FieldValList.Count-1 do begin                                if FieldValList<>'' then                                  tmpDb.FieldByName(before('=',FieldValList)).AsString:=UnQuotedStr(after('=',FieldValList));//                             end; //for 得到每个更新字段                             tmpDb.Post;                             result:='ok';                           FINALLY                           FieldValLisT.Free;                         END;                   finally                       tmpStream.Free;                   end;             end; //Begin11   1          finally      tmpDb.Free ;    end; end; --------------------------------- 以上是我用的代码  一直使用没有任何问题你修改下应该就可以了

egetrich · 2006-08-04

//      有关三层应用的函数集合  //        李大林整理自网上  //  // unit MIDAS_U; interface  uses Windows, Messages, SysUtils, Classes,Variants;  procedure RecordToVariant(var ARec; Size: integer; var v: oleVariant);  procedure VariantToRecord(v: oleVariant; var ARec; Size: integer);  //////////////变体与记录转换  function FileToVariant(FileName: String): OleVariant;  procedure VariantToFile(FileName: String; var AVariant: OleVariant);  ////变体与文件转换  procedure VariantToStream (const v : olevariant;Stream : TMemoryStream);  procedure StreamToVariant (Stream : TMemoryStream; var v : OleVariant);  //变体与流转换 implementation { p_p:=VarArrayCreate([0,length(记录数组)-1,0,1],varVariant);    for i:=0 to length(记录数组)-1 do    begin        p_p[i,0]:=记录数组.dm;        p_p[i,1]:=记录数组.mc;    end; } function FileToVariant(FileName: String): OleVariant; var  AStream: TFileStream;  MyBuffer: Pointer; begin  AStream:=TFileStream.create(FileName,fmOpenRead);  try    aStream.Seek(0, soFromBeginning);    Result:=VarArraycreate([0, AStream.size-1], VarByte);    MyBuffer:=VarArrayLock(Result);    AStream.ReadBuffer(MyBuffer^, AStream.Size);    VarArrayUnlock(Result);  finally    AStream.Free;  end; end; procedure VariantToFile(FileName: String; var AVariant: OleVariant); var  AStream: TFileStream;  MyBuffer: Pointer;  Size: Integer; begin  AStream:=TFileStream.create(FileName,fmCreate);  try    aStream.Seek(0, soFromBeginning);    Size:=VarArrayHighBound(AVariant,1)+VarArrayLowBound(AVariant,1)+1;    MyBuffer:=VarArrayLock(AVariant);    AStream.WriteBuffer(MyBuffer^, Size);    VarArrayUnlock(AVariant);  finally    AStream.Free;  end; end; procedure VariantToStream (const v : olevariant;Stream : TMemoryStream); var  p : pointer; begin  Stream.Position := 0;  Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound(v,  1) + 1; p := VarArrayLock (v);  Stream.Write (p^, Stream.Size);  VarArrayUnlock (v);  Stream.Position := 0; end; procedure StreamToVariant (Stream : TMemoryStream; var v : OleVariant); var  p : pointer; begin  v := VarArrayCreate ([0, Stream.Size - 1], varByte);  p := VarArrayLock (v);  Stream.Position := 0;  Stream.Read (p^, Stream.Size);  VarArrayUnlock (v); end; procedure RecordToVariant(var ARec; Size: integer; var v: oleVariant);   //待测试 var p: PByteArray; prec: Pointer; i: integer; begin v := VarArrayCreate([0, Size -1], varByte); p := VarArrayLock(v); prec := @ARec; for i:=0 to Size-1 do   p^ := (PByteArray(prec))^; VarArrayUnLock(v); end; procedure VariantToRecord(v: oleVariant; var ARec; Size: integer);  //待测试 var i: integer; p: PByteArray; prec: Pointer; begin prec:=@ARec; p := VarArrayLock(v); for i:=0 to Size-1 do   (PByteArray(prec))^ := p^; VarArrayUnLock(v); end; end. -----------以上为需要用到的函数

网中戏 · 2006-08-04

把他们位置对调一下 Stream.Position := 0;      Stream.LoadFromFile(OpenDialog1.filename); ///改为下面的试下/////////      Stream.LoadFromFile(OpenDialog1.filename); Stream.Position := 0;

wwwone · 2006-08-05

egetrich 你好,非常感谢你的帮助 我的问题如果安照我的写法,应该怎样写才行呢,或还有更简单的吗

liaohj · 2006-08-05

上传 CDSVersion.Edit;          CDSVersion.FieldByName('Version').AsString:=Edt_version.Text;          TBlobField(CDSVersion.FieldByName('ProgramFile')).LoadFromFile(Edt_FileName.Text);          CDSVersion.Post;          CDSVersion.ApplyUpdates(0); 下载:    TBlobField(dm.CDSCmd.FieldByName('ProgramFile')).SaveToFile(DirectoryName+'MCC.EXE');

wwwone · 2006-08-07

大家好,非常感谢大家的帮助 我的问题如果安照我的写法,应该怎样写才行呢,或还有更简单的吗

adden_lian · 2006-09-11

http://www.delphibbs.com/delphibbs/dispq.asp?lid=845156

三层中如何用clientdataset通过sql语句加载word文件到sql数据库中,急求大家帮助(200分)

wwwone

Unregistered / Unconfirmed

adden_lian

Unregistered / Unconfirmed

wwwone

Unregistered / Unconfirmed

gz_temp

Unregistered / Unconfirmed

wwwone

Unregistered / Unconfirmed

adden_lian

Unregistered / Unconfirmed

蓝叶菱

Unregistered / Unconfirmed

dcs_dcs

Unregistered / Unconfirmed

egetrich

Unregistered / Unconfirmed

egetrich

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

wwwone

Unregistered / Unconfirmed

liaohj

Unregistered / Unconfirmed

wwwone

Unregistered / Unconfirmed

adden_lian

Unregistered / Unconfirmed

Similar threads