新手求助:.bin文件如何按指定字节读取?
需求:
现需通过UDP上传bin文件:
有一bin文件2548K,现在我做了这样一个记录体,发给底层设备: 现在需要这样读取:1024K的发送,直到把整个bin文件发完为止,不足1024 的余数则赋值给block:
TUpload= packed record
Session:word;//包序号,一次1024K发,从0开始,每次加一
data:array[1..1025] of byte;//1024K读取
Block:Dword;//不足1024的余数
end;
buttonclick:
var
Upload:TUpload;
i,j,m:integer;
begin
for m:=0 to m do
begin
Upload.session:=m;//包序号
end;
filename:=opendialog1.FileName;
path_edit.Text:=filename;
for i:=length(fileName) downto 1 do
if fileName[i]='\' then
break;
j:=1;
while i<length(filename) do
begin
Upload.data[j]:=ord(filename[i+1]);
i:=i+1;
j:=j+1;
end;//请问这里如何1024K,1024K读取,不足1024K的则赋值给 bolck;
UDP.sendbuffer(ip,port,upload,sizeof(Upload));
end;