如何将delphi自带的db文件中的照片信息转化为sql可接受的照片信息

解决方案 »

  1.   

    TBlobField读取出来,然后写到sqlserver的image类型字段里面就可以了
      

  2.   

    TBlobField(字段[TField类型]).SaveToStream
    然后
    TBlobField(字段[TField类型]).LoadFromStream保存到sql
      

  3.   

    delphi example:...
    var
      MS: TMemoryStream;
    begin
      if not (ClientDataSet1.State in [dsInsert, dsEdit]) then
        ClientDataSet1.Insert;
      MS := TMemoryStream.Create();
      try
        Image1.Picture.Bitmap.SaveToStream(MS);
        ClientDataSet1Images.LoadFromStream(MS);
      finally
        MS.Free;
      end;
      ClientDataSet1.Post;
    ...
    var
      MS: TMemoryStream;
    begin
      MS := TMemoryStream.Create;
      try
        SQLDataSet1Images.SaveToStream(MS);
        Image1.Picture.Bitmap.LoadFromStream(MS);
      finally
        MS.Free;
      end;
    end;