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
你可以上google找一下关于steganography 方面的资料
to TechnoFantasy 有中文的技术说明文档吗!?
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;
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
有中文的技术说明文档吗!?
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;
谢谢你的代码; 我理解理解 你有读出的程序源码吗!?