大家好!请问如何把图片转化为二进制 ??????????图片不是二进制吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 图形本来就是二进制的,请说清楚问题. 你是要自己定义一种图象格式罢 var FromF, ToF: file; NumRead, NumWritten: Integer; Buf: array[1..2048] of Char;begin if OpenDialog1.Execute then { Display Open dialog box } begin AssignFile(FromF, OpenDialog1.FileName); Reset(FromF, 1); { Record size = 1 } if SaveDialog1.Execute then { Display Save dialog box} begin AssignFile(ToF, SaveDialog1.FileName); { Open output file } Rewrite(ToF, 1); { Record size = 1 } Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF)) + ' bytes...'); repeat BlockRead(FromF, Buf, SizeOf(Buf), NumRead); BlockWrite(ToF, Buf, NumRead, NumWritten); until (NumRead = 0) or (NumWritten <> NumRead); CloseFile(FromF); CloseFile(ToF); end; end;end;//如果你选择一个图形文件,你得到的也是一个大Char流! delphi传递动态数组 ShowModal如何在界面显示执行一些程序 在access中做查询 ,查询的结果为空,然后返回结果呢?: 问你一个有关pascal的菜鸟问题! 关于DBChart的打印输出问题(在线等)? 写函数时遇到的问题-内详 为什么我用RAVE 做的报表只有一列呀!! 请问在DELPHI中如何导入MSXML? 怎样使用位图做窗体?位图透明部分窗体也透明!! 高分求教:updatesql如果实现动态sql编程 求助! 一个捆饶了两天的问题,各位有无碰见过,快来see!!!
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file } Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;//如果你选择一个图形文件,你得到的也是一个大Char流!