我虽然学过汇编,但是依旧对汇编没兴趣。下面的代码是从Delphi的Classes单元考来的,你自己看看吧。procedure BinToHex(Buffer, Text: PChar; BufSize: Integer); assembler;
asm
PUSH ESI
PUSH EDI
MOV ESI,EAX
MOV EDI,EDX
MOV EDX,0
JMP @@1
@@0: DB '0123456789ABCDEF'
@@1: LODSB
MOV DL,AL
AND DL,0FH
MOV AH,@@0.Byte[EDX]
MOV DL,AL
SHR DL,4
MOV AL,@@0.Byte[EDX]
STOSW
DEC ECX
JNE @@1
POP EDI
POP ESI
end;
asm
PUSH ESI
PUSH EDI
MOV ESI,EAX
MOV EDI,EDX
MOV EDX,0
JMP @@1
@@0: DB '0123456789ABCDEF'
@@1: LODSB
MOV DL,AL
AND DL,0FH
MOV AH,@@0.Byte[EDX]
MOV DL,AL
SHR DL,4
MOV AL,@@0.Byte[EDX]
STOSW
DEC ECX
JNE @@1
POP EDI
POP ESI
end;
解决方案 »
- 急!!!如何在delphi中从数据库的表中取出一个cust_no的所有值
- 在线急等,如何将这个文本中的数据提取生成新的文本!!!
- form 的onkeypress事件
- 求救--在fastreport教本编辑里面为什么输不了汉字??(急)
- 紧急小问题
- MSSQL保存时间问题 在线等 50 急! MSSQL
- 关于备份Access数据库的问题!有相关经验的兄弟进来看看?!
- 问题解决马上送分!!!
- 关于用友财务软件,有几个小问题问大家,请大家踊跃发言。谢谢!
- 我的中文字体MINGLIU.ttf在英文WINME上为何不认?
- 菜鸟的简单问题,使用sql语句,同时提交多个表
- 怎样将query内的记录输出到Excel中,并同时调用Excel程序以显示,请详解!准备大出血,继续加分!!
mov ax,xxx;end;
如果要在汇编里面定义常量呢?怎么定义?
我在DELPHI 里面
const
Config_port=$f3;...........asm
mov dx,cs:Config_port
mov al,8h
out dx,al
end;出错!请问是什么原因??
DELPHI 中的 asm 中过程怎样定义,以及相互之间怎样调用?
我建议你读读Delphi 5 Developer's Guild吧,或许里面对你有帮助。
只要先用ASM
中间是代码
END;
就可以了
ASM
......
END