如题: 给点资料的链接或是提个方法也行

解决方案 »

  1.   

    Hiding in plain sight
    The little-known technique of steganography provides a stealthy way to conceal data in other text.http://community.borland.com/article/0,1410,20586,00.html
      

  2.   

    你可以上google找一下关于steganography 方面的资料
      

  3.   

    to TechnoFantasy 
       有中文的技术说明文档吗!?
      

  4.   

    var
      mStream:TStringStream;//TMemoryStream;
      JpgFile:TjpegImage;
    begin
      try
        try
          if (not ado.FieldByName(FieldName1).IsNull) then //and (Length(ado.FieldByName('FieldName1').AsString) > 10) then
          begin
            mStream:=TStringStream.Create('');//TMemoryStream.Create ;
            JpgFile:=TjpegImage.Create ;
            TBlobField(ado.FieldByName(FieldName1)).SaveToStream(mStream);//顯示的轉換為BlobFiled並保存至內存流
            mStream.Position :=0;
            jpgfile.LoadFromStream(MStream);
            image3.Picture.Assign(JpgFile);
          end
          else
            image3.Picture:= nil;
         except
           exit;
         end;
       finally
         mStream.free;
         JpgFile.Free;
       end;   if FieldName2 = '' then exit;
       try
         try
            if (not ado.FieldByName(FieldName2).IsNull) then //and (Length(ado.FieldByName('FieldName1').AsString) > 10) then
            begin
              mStream:=TStringStream.Create('');
              JpgFile:=TjpegImage.Create ;
              TBlobField(ado.FieldByName(FieldName2)).SaveToStream(mStream);//顯示的轉換為BlobFiled並保存至內存流
              mStream.Position :=0;
              jpgfile.LoadFromStream(mStream);
              image4.Picture.Assign(JpgFile);
            end
            else
              image4.Picture:= nil;
         except
           exit;
         end;
       finally
         mStream.free;
         JpgFile.Free;
       end;
      

  5.   

    to hhzqf1980(hh) :
      谢谢你的代码; 我理解理解 你有读出的程序源码吗!?