写入IC卡时:
var
buffer: Array[0..255] of char; {定义个字符缓冲区} ms := TMemoryStream.Create;
ms.LoadFromFile('c:\abc.rar'); {读入内存流}
buffer:='';
ms.Position:=0; {指针到开始}
ms.Read(buffer, ms.Size); {读字节, 指针会自动移到新的位置} offset:=0; {偏移量}
length:=ms.Size; {每次写入字节}
wr_ICdata(pNo,offset,length,buffer); {数据流写入IC卡,设备号,便宜量,长度,buffer}
读取IC卡时:生成rar文件
从IC卡中读取的数据生成一个文件。IC卡存入的是二进制的文件。
strList: TMemoryStream;
strList := TMemoryStream.Create;
strList.Position:=0;
strList.Seek(0,soFromBeginning);
strList.Read(buffer2,length); {buffer2是从IC卡读出的数据}
strList.SaveToFile('c:\abc2.rar);
{?想把读取的buffer2生产一个rar文件或者其他格式文件。能够生成但是生成的文件不能够打开}请帮忙看看。谢谢
var
buffer: Array[0..255] of char; {定义个字符缓冲区} ms := TMemoryStream.Create;
ms.LoadFromFile('c:\abc.rar'); {读入内存流}
buffer:='';
ms.Position:=0; {指针到开始}
ms.Read(buffer, ms.Size); {读字节, 指针会自动移到新的位置} offset:=0; {偏移量}
length:=ms.Size; {每次写入字节}
wr_ICdata(pNo,offset,length,buffer); {数据流写入IC卡,设备号,便宜量,长度,buffer}
读取IC卡时:生成rar文件
从IC卡中读取的数据生成一个文件。IC卡存入的是二进制的文件。
strList: TMemoryStream;
strList := TMemoryStream.Create;
strList.Position:=0;
strList.Seek(0,soFromBeginning);
strList.Read(buffer2,length); {buffer2是从IC卡读出的数据}
strList.SaveToFile('c:\abc2.rar);
{?想把读取的buffer2生产一个rar文件或者其他格式文件。能够生成但是生成的文件不能够打开}请帮忙看看。谢谢
必须要处理所有的流文件,不能生成rar文件,可以考虑mdf或者txt