用delphi如何实现 串口 传送Word文件(50分)

青

青云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #1

我一般利用spcomm 实现串口 通讯功能,
有个朋友让我帮他作个利用串口传送文件的软件.
主要是word文件.

还要支持断点续传,就是比如接收到60%的时候断了,下次传的时候自动从60%的地方继续传文件.

希望大家探讨一下,如何实现.

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #2

把word文件当成二进制文件传输，这样可以实现断点续传。而且，也便于文件传输，

 

H

helium-he

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #3

网络上有很多串口传输文件的例子,找一下

 

青

青云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-31

• #4

不大好找,谁有现成的.最好用spcomm 开发的.

出费用购买,价格100~200元.

有兴趣的,可以发demo给我,
daizhicun@126.com

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-31

• #5

是直接用串行口相连接还是通过MODEM？是否规定用何种硬件协议（两台机器用几根线连接？简单的 TX-RX，还是 RTS/CTS？）
另外，我是否可以选择不要那100--200RMB，换成300分，呵呵？

 

A

abigfish

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-01

• #6

钱就不用了,我这几天刚好在做这个
AssignFile(FromF, newfile);
Reset(FromF, 1);
Fsize:=0;
import_str:=Tstringlist.Create;
memo1.Lines.Add('正在做写入内存操作,请稍候...!');
repeat
str:= '';
Frm_SIMCOM.Refresh;
BlockRead(FromF, Buf, SizeOf(Buf), NumRead); //512个字节一个包
for i := 1 to NumRead do
begin
Str := Str + InttoHex(Buf,2);
end;
if numread<>0 then
begin
import_str.Add(str);//内容填入缓存
inc(fsize);
last_num:=numread;
end;
until (NumRead=0);

然后一条一条送出去,这个是跟硬件有协议的.俺的MSN:z_y_lian@hotmail.com
我现在的程序能把任何文件导进硬件的FLASH里面,然后再拿到别的机上导出来.

 

Z

zhaokaien

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-01

• #7

api实现,不能断点续传,两机对接成功
qq:99292746
xyzw-0016@613.com