小编Ege*_*ICI的帖子

Delphi XML解析

这是我的xml;

<?xml version="1.0" encoding="UTF-8"?>
    <Response>
        <code>0</code>
        <description>Success</description>
        <Logs>
            <msisdn status="0">88888888</msisdn>
            <msisdn status="0">99999999</msisdn>
        </Logs>
    </Response>
Run Code Online (Sandbox Code Playgroud)

现在,我需要获得状态值.

这是我的代码;

nodes_row := xml.selectNodes('/Response/Logs/msisdn');
    for i := 0 to nodes_row.length - 1 do
    begin
      node := nodes_row.item[i];
    end;
Run Code Online (Sandbox Code Playgroud)

我有节点,但我不知道如何获得状态值.

xml delphi parsing

0
推荐指数
1
解决办法
457
查看次数

Crc16 To String

我可以将字符串转换为crc16,但我需要将crc16转换为字符串.这可能吗?

function TForm1.CRC_16(Icerik: string): word;
var
  valuehex: word;
  i: integer;
  CRC: word;
Begin
  CRC := 0;
  for i := 1 to length(Icerik) do
  begin
    valuehex := ((ord(Icerik[i]) XOR CRC) AND $0F) * $1081;
    CRC := CRC SHR 4;
    CRC := CRC XOR valuehex;
    valuehex := (((ord(Icerik[i]) SHR 4) XOR LO(CRC)) AND $0F);
    CRC := CRC SHR 4;
    CRC := CRC XOR (valuehex * $1081);
  end;
  CRC_16 := (LO(CRC) SHL 8) OR HI(CRC);
end;
Run Code Online (Sandbox Code Playgroud)

此函数将字符串转换为CRC16.

delphi crc16

-1
推荐指数
1
解决办法
911
查看次数

标签 统计

delphi ×2

crc16 ×1

parsing ×1

xml ×1