局域网下使用MATLAB传送文件
局域网下使用MATLAB传送文件本程序的功能是用matlab接收和传送文件。要求两台电脑都连接到了同一个路由器（即位于同一局域网中），并都安装有matlab软件。程序分成两个文件sendfile.m和getfile.m。发送端电脑使用sendfile.m发送文件，接收端电脑使用getfile.m接收文件。
举例
第一步，发送端电脑执行：
ip
复制代码
第二步，发送端电脑执行：
sendfile
复制代码
选择好要传送的文件之后，在接收端执行第三步。
第三步，接收端电脑输入，注意接收端电脑接收文件时需要知道发送端的IP地址：
getfile('192.168.2.100');
复制代码
源程序代码：
function ip
%功能：获取电脑IP地址。
=system('ipconfig');
r=regexp(r,'IP Address. . . . . . . . . . . . : \d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}','match');
r=r{1};
r=regexp(r,'\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}','match');
lip=r{1};
disp(['本机IP为',lip]);
复制代码
**** Hidden Message *****
getfile.m
function getfile(ip)
tcp=tcpip(ip,1314);
set(tcp,'InputBufferSize',6000000);
fopen(tcp);
while tcp.BytesAvailable==0
pause(0.1);
end
filename=fread(tcp,tcp.BytesAvailable/2,'uint16'); %接收文件名
filename=char(filename);
filename=filename';
fwrite(tcp,1314,'uint16'); %接收名字成功
while tcp.BytesAvailable==0
pause(0.1);
end
disp(['正在接收文件',filename]);
filesize=fread(tcp,1,'uint32')
disp(['文件共',num2str(filesize),'字节']);
fwrite(tcp,1314,'uint16'); %接收文件大小成功
while tcp.BytesAvailable~=filesize
pause(0.5);
end
data=fread(tcp,filesize,'uint8');
fwrite(tcp,1314,'uint16'); %接收文件大小成功
=fileparts(filename);
filename=;
fid=fopen(filename,'w');
fwrite(fid,data,'uint8');
fclose(fid);
fclose(tcp);
复制代码
顶一下。。。。。
厉害厉害
页:
[1]