[问题]非文本文件类型能不能转换成字符数组？如果能，如何转换呢？ 谢谢。(200分)

S

shindy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #1

非文本文件类型能不能转换成字符数组？如果能，如何转换呢？ 谢谢。

具体问题是这样的：

用MSCOMM控件通过MODEM在两台计算机间传送文件。

用MSCOMM控件的Output 属性：往传输缓冲区写数据流。但是发送二进制数据，必须传递一个包含字节数组的 Variant 到 Output 属性。

就出现了这样的问题：打开的文件如何转换为字节数组。

谢谢。

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #2

var
FS: TFileStream;
S: String;
begin
FS:= TFileStream.Create('MyFile.bin', fmOpenRead);
SetLength(S, FS.Size);
FS.Read(S[1], FS.Size);
MsComm1.Output:= S;
FS.Free;
end;

 

S

shindy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #3

谢了 我试试看。

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-17

• #4

楼上的方法可以

 

S

shindy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-13

• #5

那接收端呢？

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #6

接受端:

var
FS: TFileStream;
S: String;

初始化::
begin
FS:= TFileStream.Create('MyFile.bin', fmOpenRead);
SetLength(S, 1024);
end;

接受事件：
begin
S:=MsComm1.Input;
FS.Write(S[1], LengTh(S));
end;