var
? st:?? TStringStream;
? ft:?? Tfilestream;
? v:variant;
begin
??? ft:=Tfilestream.Create('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg',fmOpenRead );
??? st?? :=?? tstringstream.Create('');
??? try
??????? st.CopyFrom(ft,ft.Size);
??????? v:=st.DataString;
??? finally
??????? freeandnil(ft);
??????? freeandnil(st);
??? end;
end;
//关键在于把文件变成字符串类型,就用TStringStream;
? st:?? TStringStream;
? ft:?? Tfilestream;
? v:variant;
begin
??? ft:=Tfilestream.Create('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg',fmOpenRead );
??? st?? :=?? tstringstream.Create('');
??? try
??????? st.CopyFrom(ft,ft.Size);
??????? v:=st.DataString;
??? finally
??????? freeandnil(ft);
??????? freeandnil(st);
??? end;
end;
//关键在于把文件变成字符串类型,就用TStringStream;