F
flyerer1
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大峡,哪为能将下列vb代码转为delphi,谢谢
vb代码如下:
Open "C:/Documents and Settings/Administrator/桌面/test2/1234.BMP" For Binary As #2
A$ = " "
For I = 1 To 7572
Get #2, I, A$
Print #1, A$;
For K = 1 To 100
Next K
Next I
Print #1, C$;
"V400";
C$;
"H250";
C$;
"XMPRINTED BY SATO CLXXX(e) PRINTER";
vb代码如下:
Open "C:/Documents and Settings/Administrator/桌面/test2/1234.BMP" For Binary As #2
A$ = " "
For I = 1 To 7572
Get #2, I, A$
Print #1, A$;
For K = 1 To 100
Next K
Next I
Print #1, C$;
"V400";
C$;
"H250";
C$;
"XMPRINTED BY SATO CLXXX(e) PRINTER";