[最后的82分]PDU中英文混合编码？(82分)

F

Faczxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-21

• #1

[最后的82分]PDU中英文混合编码？
只要说混合编码就可以啦？
谢谢

 

东

东兰梦舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-21

• #2

PDU是什么东东？不太懂……

 

走

走来走去

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-22

• #3

编码：
function TfrmMain.str_Gb2UniCode( text: string ): String;
var
i,j,len:Integer;
cur:Integer;
t:String;
ws:WideString;
begin
Result:='';
ws := text;
len := Length(ws);
i := 1;
j := 0;
while i <= len do
begin
cur := ord(ws);
FmtStr(t,'%4.4X',[cur]); //BCD转换
Result := Result+t;
inc(i);
//移位计数达到7位的特别处理
j := (j+1) mod 7;
end;
end;

解码：
function UnicodeToString(var AString: string; AUnicode: PChar; ALenth: integer): integer;
var
TmpBuf: array [1..1024] of char;
TmpChar: char;
TmpLen, i: integer;
begin
try
TmpLen := ALenth div 2;
if ALenth > 0 then
begin
CopyMemory(@TmpBuf, AUnicode, ALenth);
for i := 0 to TmpLen - 1 do
begin
TmpChar := (AUnicode + i * 2)^;
(AUnicode + i * 2)^ := (AUnicode + i * 2 + 1)^;
(AUnicode + i * 2 + 1)^ := TmpChar;
end;
TmpBuf[TmpLen * 2 + 1] := #0;
TmpBuf[TmpLen * 2 + 2] := #0;
AString := WideCharToString(pwidechar(AUnicode));
Result := TmpLen;
end
else
begin
Result := 0;
end;
except
AString := '';
Result := 0;
end;
end;

 

G

gdtkd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-23

• #4

把所有英文都用PDU编码就是了！

 

S

salecode

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-24

• #5

可

 

F

Faczxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-24

• #6

接受答案了.

 

走

走来走去

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #7

不知道salecode是谁
但强烈bs你这种倒分的行为
查纪录salecode的专家分全是你给的
而且问题回答的都是莫名其妙
你要是想把分给自己，拜托，你至少也应该做个样子
别只是说一个字或者打两个问号就得分
再一次bs你的行为[!]