请问如何将一段unicode编码转成一段二进制编码. 求实例! 急!
解决方案 »
- ●●谁有摄像头CYUSBCAM.DLL的调用说明或者例子代码,万分感激!
- 存储过程调用问题!大家帮忙看看
- 求救!如何连接mysql,急~~~~~~~
- 急求一个递归统计函数,能解决者马上给分!!!
- 安装第三方控件问题
- 在不使用其他组件的情况下,如何给StringGrid添加和使用ComboBox?
- 怎样打看‘com’---串口,我想用assignfile(),rewrite(),write(),直接向串口,里写。
- 如何获得域名转向后的地址??????????????
- 收到邮件主题 Subject: =?gb2312?b?xOO6ww==?= 怎么转换成中文?(原文为“你好”)
- 如何在一个窗口上使用EXECL,请说详细一点!
- filter语句请教
- 报表问题!可不可以将stringgrid的数据形成报表?(200分)
再根据'0','1','2'...'D','E','F'和'0000','0001','0010'...'1101','1110','1111'的对应关系转化为二进制字符串
function UnicodeToBinary(W:WideString):string;
function getSingleChar(W:WideChar):string;
var tmp:DWORD;sOut:string;iPos:integer;
begin
CopyMemory(@tmp,@W,2);
sOut:='';
for iPos:=1 to 16 do
begin
if (tmp and 1)=1 then sOut:=sout+'1' else sOut:=sOut+'0';
tmp:=tmp shr 1;
end;
Result:=sOut;
end;
var s:string;i:integer;
begin
for i:=1 to length(w) do
s:=s+getSingleChar(w[i]);
Result:=s;
end;