{"id":809,"date":"2008-05-29T02:19:13","date_gmt":"2008-05-29T02:19:13","guid":{"rendered":"http:\/\/6teen.ru\/?p=577"},"modified":"2008-05-29T02:19:13","modified_gmt":"2008-05-29T02:19:13","slug":"4184","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=809","title":{"rendered":"\u041f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0432\/\u0438\u0437 DLL"},"content":{"rendered":"<p>\u041f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0432\/\u0438\u0437 DLL<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0432\/\u0438\u0437 DLL\n\nlibrary Project1;\n\n{$R *.res}\n\nuses\n  Types;\n\ntype\n  PSingleDynArray = ^TSingleDynArray;\n  TSingleDynArray = array of Real;\n  TDoubleDynArray = array of array of Real;\n\nfunction Test(const InValue: TDoubleDynArray;\n  const ArrayLength: TSize; var OutValue: TSingleDynArray): Boolean; stdcall;\nvar\n  Count, X, Y: Integer;\n  Ser: Real;\n  AOutValue: TSingleDynArray;\nbegin\n  Result := True;\n  try\n    Count := 0;\n    Ser := 0;\n    for X := 0 to ArrayLength.cx - 2 do\n      for Y := 0 to ArrayLength.cy - 2 do\n      begin\n        Ser := Ser + InValue[X, Y];\n        Inc(Count);\n      end;\n     Ser := Ser \/ Count;\n     for X := 0 to ArrayLength.cx - 2 do\n       OutValue[X]:=(Ser - Abs(InValue[X, Trunc(ArrayLength.cx \/ 2)]));\n   except\n     Result := False;\n   end;\nend;\n\nexports\n  Test;\n\nbegin\nend.\n\n\nunit Unit1;\n\ninterface\n\nuses\n  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\n  Dialogs, StdCtrls;\n\ntype\n  TForm1 = class(TForm)\n    Button1: TButton;\n    procedure Button1Click(Sender: TObject);\n  end;\n\nvar\n  Form1: TForm1;\n\nimplementation\n\ntype\n  PSingleDynArray = ^TSingleDynArray;\n  TSingleDynArray = array of Real;\n  TDoubleDynArray = array of array of Real;\n\n  function Test(const InValue: TDoubleDynArray;\n    const ArrayLength: TSize; var OutValue: TSingleDynArray): Boolean; stdcall; external 'project1.dll';\n\n{$R *.dfm}\n\nprocedure TForm1.Button1Click(Sender: TObject);\nvar\n  X, Y: Integer;\n  InArray: TDoubleDynArray;\n  InSize: TSize;\n  OutArray: TSingleDynArray;\nbegin\n  Randomize;\n  InSize.cx := 20;\n  InSize.cy := 20;\n  SetLength(InArray, InSize.cx, InSize.cy);\n  for X := 0 to InSize.cx - 1 do\n    for Y := 0 to InSize.cy - 1 do\n      InArray[X, Y] := Random(100);\n  SetLength(OutArray, InSize.cx);\n  if Test(InArray, InSize, OutArray) then\n    \/\/ \u0442\u0443\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u043c \u0441 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u043c\nend;\n\nend.\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041f\u0435\u0440\u0435\u0434\u0430\u0447\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0432\/\u0438\u0437 DLL<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[16,402],"tags":[1907,1244,1422,1544],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/809"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=809"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/809\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=809"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=809"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=809"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}