局域网下使用MATLAB传送文件

建不了的模。

局域网下使用MATLAB传送文件
本程序的功能是用matlab接收和传送文件。要求两台电脑都连接到了同一个路由器（即位于同一局域网中），并都安装有matlab软件。程序分成两个文件sendfile.m和getfile.m。发送端电脑使用sendfile.m发送文件，接收端电脑使用getfile.m接收文件。
举例
第一步，发送端电脑执行：
ip   
复制代码
第二步，发送端电脑执行：
sendfile
复制代码
选择好要传送的文件之后，在接收端执行第三步。

第三步，接收端电脑输入，注意接收端电脑接收文件时需要知道发送端的IP地址：
getfile('192.168.2.100');
复制代码
源程序代码：
function ip
%功能：获取电脑IP地址。
[s r]=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]);
复制代码

游客，如果您要查看本帖隐藏内容请回复

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');  %接收文件大小成功
[path name ext]=fileparts(filename);
filename=[name, '_' , num2str(round(rand*10000)), ext];
fid=fopen(filename,'w');
fwrite(fid,data,'uint8');
fclose(fid);
fclose(tcp);
复制代码

WSHXPY

厉害厉害

w785485068

顶一下。。。。。