小编Mic*_*zer的帖子

Delphi/SuperObject - 访问子节点

我的服务器有以下JSON:

{
   "userid":"12",
   "username":"TestChar",
   "logged":"yes",
   "status":"Premium User",
   "areas":{
      "SERVICEAREA_XX1":{
         "id":"1",
         "area":"SERVICEAREA_XX1",
         "version":"3000",
         "usr_group":"0"
      },
      "SERVICEAREA_XX2":{
         "id":"2",
         "area":"SERVICEAREA_XX2",
         "version":"31000",
         "usr_group":"0"
      },
      "SERVICEAREA_XX3":{
         "id":"3",
         "area":"SERVICEAREA_XX3",
         "version":"2000",
         "usr_group":"1"
      }
   }
}
Run Code Online (Sandbox Code Playgroud)

使用SuperObjects,我可以获得"SERVICEAREA"的计数

ob['areas'].AsObject.count
Run Code Online (Sandbox Code Playgroud)

我现在如何才能访问不同"SERVICEAREA"的元素?

谢谢你的帮助...

delphi json superobject

7
推荐指数
2
解决办法
4072
查看次数

Delphi XE3 - >整数到字节数组

我有一个数据结构:

data = array of integer;
Run Code Online (Sandbox Code Playgroud)

我已经把它填满了

source = array of byte;
Run Code Online (Sandbox Code Playgroud)

data[x] := Source[offset] or (Source[offset + 1] shl 8) or
    (Source[offset + 2] shl 16) or (Source[offset + 3] shl 24);
Run Code Online (Sandbox Code Playgroud)

在处理完这些块之后,我必须将它们带回"字节"......

任何的想法?

arrays delphi byte integer

5
推荐指数
3
解决办法
1万
查看次数

CakePhp 2.x TCPDF输出Chrome

我正在使用CakePHP 2.x和tcpdf来创建PDF文件.我想现在将它输出到浏览器,而不保存.

布局 - > pdf.ctp

<?php 
header("Content-type: application/pdf");
echo $content_for_layout;
?>
Run Code Online (Sandbox Code Playgroud)

查看 - > pdf_testing.ctp

<?php
App::import('Vendor', 'xtcpdf');
$pdf = new XTCPDF('P', 'mm', 'USLETTER', true, 'UTF-8', false);

$textfont = 'freesans'; // looks better, finer, and more condensed than 'dejavusans'

$pdf->AddPage();

$pdf->setHeaderData('', '', '', 'RMA#100000');
$pdf->SetTitle('Some Text');
$pdf->SetHeaderMargin(20);
$pdf->SetTopMargin(40);
$pdf->setFooterMargin(20);
$pdf->SetAutoPageBreak(True, PDF_MARGIN_FOOTER);
$pdf->SetAuthor('Any Author');
$pdf->SetDisplayMode('real', 'default');

$pdf->SetTextColor(0, 0, 0);
$pdf->SetFont($textfont, 'B', 20);
$pdf->Cell(0, 14, "TESTING", 0, 1, 'L');
echo $pdf->Output('filename.pdf', 'I');

?>
Run Code Online (Sandbox Code Playgroud)

对于Internet Explorer,此工作正常,PDF显示.

使用Chrome,我只能获得非常友好的输出,例如:

%PDF-1.7 %???? 10 0 obj …
Run Code Online (Sandbox Code Playgroud)

cakephp google-chrome tcpdf

2
推荐指数
1
解决办法
3066
查看次数

Delphi -&gt; 字节数组到 LongInt

我想从中取出 4 个字节

Source : Array[0..500] of Byte;
Run Code Online (Sandbox Code Playgroud)

在哪里

c : integer; // Start Point
Run Code Online (Sandbox Code Playgroud)

v : LongInt;
Run Code Online (Sandbox Code Playgroud)

Move(Source[c], v, 4);
Run Code Online (Sandbox Code Playgroud)

只给我 1 个字节。我的错在哪里?

再次感谢。

delphi move

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

德尔福反向解密功能

我在delphi中有以下代码来解密:

      new_size := Length(Source) - 1;
      for c := 24 to new_size - 1 do
        begin
          v := Source[c];
          v := v - key;
          v := v AND $FF;
          x := v XOR (Source[c + 1]);
          Source[c] := x;
        end;
Run Code Online (Sandbox Code Playgroud)

哪里

      Source: Array of Byte;

      Key: Byte;
Run Code Online (Sandbox Code Playgroud)

任何人都想知道如何扭转这种情况(再次加密)?

delphi

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

错误C2296:'*':非法,左操作数的类型为'__int64*'|

以下代码产生错误:

error C2296: '*' : illegal, left operand has type '__int64 *'|
Run Code Online (Sandbox Code Playgroud)

错误行(<------)

DWORD increasefactor = 1;

__int64 initialtime64 = 0;
__int64 initialoffset64 = 0;

...

BOOL WINAPI QueryPerformanceCounter_Detour(__int64 *lp)
{
    BOOL ret = QueryPerformanceCounter_Trampoline(lp);
    lp = ((lp-initialtime64)*increasefactor)+initialoffset64;   // <------
    return ret;
}
Run Code Online (Sandbox Code Playgroud)

我的错在哪里?

非常感谢提前.

c++

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

标签 统计

delphi ×4

arrays ×1

byte ×1

c++ ×1

cakephp ×1

google-chrome ×1

integer ×1

json ×1

move ×1

superobject ×1

tcpdf ×1