在三层结构的环境下，如何实现把客户端的图片传到数据库中?

Question

同上

Answer 1

procedure TFrm_Code.suiButton13Click(Sender: TObject);
var MS:TMemoryStream;
begin
 if suiEdit12.Text='' then application.MessageBox('请输入要添加的图形代码！','提示',64)
  else if suiComboBox3.Text='' then application.MessageBox('请选择图形类型！','提示',64)
    else if OpenPictureDialog1.FileName='' then application.MessageBox('请选择需要添加的图形！','提示',64)
      else begin
       try
       MS:=TMemoryStream.Create;
       Image3.Picture.Bitmap.SaveToStream(MS);
       MS.Position:=0;
       with Code_DM.ClientDataSet1 do begin
        Close;
        ProviderName:='DataSetProvider2';
        Open;
        Append;
        FieldValues['ID']:=suiEdit12.Text;
        TBlobField(FieldByName('PICTURE')).LoadFromStream(MS);
        FieldValues['KIND']:=KindIDList[suiComboBox3.Items.IndexOf(suiComboBox3.Text)];
        FieldValues['ReMark']:=RichEdit1.Text;
        ApplyUpdates(-1);
        if Application.MessageBox('添加成功！','提示',MB_OK)=IDOK then begin
          suiEdit12.Text:='';
          suiComboBox3.Text:='';
          RichEdit1.Text:='';
          OpenPictureDialog1.FileName:='';
          image3.Picture.Bitmap:=Nil;
          Close;
          ProviderName:='DataSetProvider1';
          Open;
          suiListView1.Clear;
          Code_DM.Apps.Get_Map_Info;
          MapThread:=Get_Map_thread.Create(true); //创建获取平面图信息线程
          MapThread.Resume;//唤醒获取平面图信息线程
         end;//end if
        end;//end with
        except
         Application.MessageBox('该图形代码已存在！','提示',MB_OK);
        end;//end try
      end;//end else
end;