三层结构中怎样通过ClientDataSet把jpg,bmp文件保存到服务器端的SQL SERVER 数据库的一个字段中呢(200分)

wwwone · 2006-09-15

三层结构中怎样通过ClientDataSet把jpg,bmp文件保存到服务器端的SQL SERVER 数据库的一个字段中呢 procedure Tjlsz_form.BitBtn5Click(Sender: TObject); var myfilestream: tfilestream;  myblob: tblobfield; begin  try    with dm.ClientDataSet_Add do    begin      Close;      CommandText := '';      CommandText := 'select * from jpg';      open;    end;    OpenDialog1.Filter := '(*.*)|*.*';    if OpenDialog1.Execute then    begin      dm.ClientDataSet_Add.Append;      myfilestream := tfilestream.Create(OpenDialog1.filename, fmopenread);      myblob := tblobfield(dm.ClientDataSet_Add.FieldByName('jpg'));      myblob.LoadFromStream(myfilestream);      myfilestream.Free;      dm.ClientDataSet_Add.Post;      dm.ClientDataSet_Add.ApplyUpdates(0);      dm.ClientDataSet_Add.ApplyUpdates(0);    end;    showmessage('ok');  except  end; end; 我这样做,但是保存不了数据,是什么原因呢,或用什么方法实现,最好出源码,谢谢大家

am2001 · 2006-09-15

服务器层写个接口，其中param是传到服务器层的图片数据(OleVariant类型) 服务器端： var  ADataSet: TADODataSet;  Stream : TMemoryStream; begin  ADataSet := TADODataSet.Create(nil);  ADataSet.Connection := Base.ADOConnection;  ADataSet.CommandText := 'SELECT * FROM aaa where .....';  ADataSet.Open;  if ADataSet.IsEmpty then  begin    try      ADataSet.Append;      Stream := TMemoryStream.Create;      VariantToStream(param, Stream);      TBlobField(ADataSet.FieldByName('imgData')).LoadFromStream(Stream);      Stream.Free;      ADataSet.Post;      Result := 0;    except      Result := -1;    end;  end else  begin    try      ADataSet.Edit;      Stream := TMemoryStream.Create;      VariantToStream(param, Stream);      TBlobField(ADataSet.FieldByName('imgData')).LoadFromStream(Stream);      Stream.Free;      ADataSet.Post;      Result := 0;    except      Result := -1;    end;  end;  ADataSet.Close;  ADataSet.Free; 客户端：      Stream := TMemoryStream.Create;      TBlobField(cdsDoc.FieldByName('imgData')).SaveToStream(Stream);      StreamToVariant(Stream, param);      Stream.Free;      sSaveImg(param, ....); 你再改写吧

网中戏 · 2006-09-15

先保存为流传递。再保存到数据库

delphisuccess · 2006-09-15

代碼如下： 服務端： function TTmrpserver.SaveImageField(const pSqlstr: WideString;  var pStr: OleVariant): WordBool; Var nStrm:TMemoryStream;    nRs:TADODataSet; begin   nRs:=TADODataSet.Create(nil);   nStrm:=TMemoryStream.Create;   try      nRs.ConnectionString:=server_path;      nRs.CommandText:=pSQLStr;      nRs.Open;      If nRs.RecordCount>0 Then      Begin         nRs.Edit;         nStrm.Position:=0;         nStrm.LoadFromStream(OleVariantToMemoryStream(pStr));         TBlobField(nRs.FieldByName('Pic_Name')).LoadFromStream(nStrm);         nRs.Post;      End;   finally      nRs.Free;      nStrm.Free;   end; end; function OleVariantToMemoryStream(OV: OleVariant): TMemoryStream; var Data

ByteArray;    Size:Integer; begin   Result:=TMemoryStream.Create;   try      Size:=VarArrayHighBound(OV,1)-VarArrayLowBound(OV,1)+1;      Data:=VarArrayLock(OV);      try         Result.Position:=0;         Result.WriteBuffer(Data^,Size);      finally         VarArrayUnlock(OV);      end;   except      Result.Free;      Result:=nil;   end; end; 客戶端： Function MemoryStreamToOleVariant(Strm: TMemoryStream): OleVariant; Var  Data: PByteArray; Begin  Result := VarArrayCreate([0, Strm.Size - 1], varByte);  Data := VarArrayLock(Result);  Try    Strm.Position := 0;    Strm.ReadBuffer(Data^, Strm.Size);  Finally    VarArrayUnlock(Result);  End; End; 保存圖片： procedure TFrmPo_Delivb_Picture.Pub_GridColumns2EditButtonClick(  Sender: TObject; var Handled: Boolean); Var LsSql:String; begin   Strm:=TMemoryStream.Create;   Try      If OpenPictureDialog1.Execute Then      Begin         Strm.LoadFromFile(OpenPictureDialog1.FileName);         SubData.Edit;         SubDataPic_Name.LoadFromStream(Strm);         LsSql:='Select Pic_Name From Po_Delivb_Picture Where Del_Mark=0 And Sn='            +IntToStr(SubData.FieldByName('Sn').Value)+' And Delivb_Sn='+ModSn;         SaveImageField(LsSql,MemoryStreamToOleVariant(Strm));         //tbnRefreshClick(self);      End;   Finally      Strm.Free;   End; end;

wwwone · 2006-09-15

谢谢大家的帮助,我先试试,

wwwone · 2006-09-18

delphisuccess  你好 我的是三层,用的是socket连接 客户端应该怎样写啊,可否帮我写一下客户端呢上传和下载图片呢

三层结构中怎样通过ClientDataSet把jpg,bmp文件保存到服务器端的SQL SERVER 数据库的一个字段中呢(200分)

wwwone

Unregistered / Unconfirmed

am2001

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

delphisuccess

Unregistered / Unconfirmed

wwwone

Unregistered / Unconfirmed

wwwone

Unregistered / Unconfirmed

Similar threads