W
woodheadhn
Unregistered / Unconfirmed
GUEST, unregistred user!
请问哪里能得到一个GBK的带声调的拼音库,最好帮我解释一下文件结构!
有没有人知道金山词霸的gb2py.idx和gbk2py.idx的文件结构,或者把下面的代码翻译成bcb:
下面上Delphi写的gb2py函数。
function gb2py(hanzichar)char;
var
Sfile:Tmemorystream;
pos,temp,ipos,len:integer;
py:array[0..20] of char;
begin
pos:=($fe-$a1)*(ord(hanzi[0])-$b0)+ord(hanzi[1])-$a1;
sfile:=Tmemorystream.create;
sfile.loadfromfile('C:/Program Files/KINGSOFT/XDICT/gb2py.idx');
//data:=sfile.memory;
sfile.Seek($1608+pos*4,soFromBeginning);
sfile.Read(ipos,4);
sfile.Read(temp,4);
len:=temp-ipos;
sfile.Seek(ipos+1,soFromBeginning);
sfile.Read(py,len);
py[len-1]:=#0;
sfile.Free;
result:=py;
end;
有没有人知道金山词霸的gb2py.idx和gbk2py.idx的文件结构,或者把下面的代码翻译成bcb:
下面上Delphi写的gb2py函数。
function gb2py(hanzichar)char;
var
Sfile:Tmemorystream;
pos,temp,ipos,len:integer;
py:array[0..20] of char;
begin
pos:=($fe-$a1)*(ord(hanzi[0])-$b0)+ord(hanzi[1])-$a1;
sfile:=Tmemorystream.create;
sfile.loadfromfile('C:/Program Files/KINGSOFT/XDICT/gb2py.idx');
//data:=sfile.memory;
sfile.Seek($1608+pos*4,soFromBeginning);
sfile.Read(ipos,4);
sfile.Read(temp,4);
len:=temp-ipos;
sfile.Seek(ipos+1,soFromBeginning);
sfile.Read(py,len);
py[len-1]:=#0;
sfile.Free;
result:=py;
end;