如何把一个文件的内容导入字符串中呢?(100分)

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #1

各位前辈们:
我在写附件时,如何将一个非文本文件导入到一个TStrings类型变量中,比如将
DOC的文件内容导入出来,然后我就可以编码成Mime格式的字符发送出去.
再有我如何将解码后的Mime字符保存为一个附件呢.
我用的是TStrings.LoadFromFile和saveToFile,好像不行.请大家帮忙.多谢!

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #2

TFileStream试一下。

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #3

文件流

 

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #4

谢谢,能不能给出示例,我用下面写,好像不行.
var
// ss :TStream;
dd :TStringList;
ss :TFileStream;
buff : array of byte;
begin
dd := TStringList.Create;
ss := TFileStream.Create('1.doc',fmOpenRead);
ss.Seek(0,soFromBeginning);
dd.LoadFromStream( ss);
ShowMessage(dd.text);
dd.free;
//SetLength(buff,ss.size+1);
ss.Read(buff,ss.size);
// ww := TFileStream.Create('2.doc',fmCreate and fmShareCompat);
// ww.Write(buff,length(buff));
// ww.free;
ss.Free;

end;

 

夺

夺工1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #5

好像不用TStringList吧，用字符串试试/
把下面的话改一下就可以了
var
ss:string
begin
SetString(ss,nil,ss.size);
Stream.ReadBuffer(Pointer(ss)^,ss.size);
end

 

Z

zyqks

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #6

把文件内容一行一行读出不就行了！

 

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #7

我这样做,但得到的是一些乱码,而不是文件的内容.?????大家帮帮我,
我为这个问题已经几天了.谢谢了!

 

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #8

up

 

夺

夺工1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #9

DOC文件本来就是乱码,又不是文本文件。

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #10

Doc文件并不是文本文件，你这样读出来的就是doc文件内容了(前面还有文件头)
放心吧，没关系的。

 

Z

zhiqunluodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #11

多人接受答案了。