База для нейросети

[Alex11223]

Сообщение от Smitt&Wesson

класс привилегированного процесса

Что? Причем тут привилегированность и класс?
https://ru.wikipedia.org/wiki/%D0%9A...86%D0%B8%D1%8F

[Smitt&Wesson]

Сообщение от Alex11223

Что? Причем тут привилегированность и класс?
https://ru.wikipedia.org/wiki/%D0%9A...86%D0%B8%D1%8F

Фиг знает. Я с ним никогда не работал. И с секциями тоже. Просто прочитал про это и предположил. Увы, предположение оказалось не верным .

[darkwellroad]

Еще такой вопрос. Допустим я переведу изображение в массив. Сначала на одной картинке 6 символов разного размера. Мне нужно далее привести все символы к одному размеру. При использовании изображений это не составит труда. Как поступить с массивом? Есть ли подобные готовые функции? Т.е. нужно взять область двумерного массива и привести к определенному размеру.

[Sibedir]

Сообщение от darkwellroad

Еще такой вопрос. Допустим я переведу изображение в массив. Сначала на одной картинке 6 символов разного размера. Мне нужно далее привести все символы к одному размеру. При использовании изображений это не составит труда. Как поступить с массивом? Есть ли подобные готовые функции? Т.е. нужно взять область двумерного массива и привести к определенному размеру.

Капча? Да?

// ---------------------------------------------------------------------------------------------
Ни на что не претендуя, просто как пища для размышлений:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
  Vcl.Samples.Gauges;

const
  WM_THEEND = WM_USER + 1;
  WM_PROGRESS = WM_USER + 2;

type
  PTask = ^TTask;
  TTask = record
    Value: Integer;
    Flag : LongWord;
  end;

  PThreadData = ^TThreadData;
  TThreadData = record
    ThreadId: TThreadID;
    Handle: THandle;
    DataList     : TStrings;
    BeginPosition: Integer ;
  end;

  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    lbxData: TListBox;
    GroupBox2: TGroupBox;
    lbxThread: TListBox;
    Button1: TButton;
    Gauge1: TGauge;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    function GetData(Index: Integer): PTask;
    procedure WMTheEnd (var Message: TMessage); message WM_THEEND;
    procedure WMProgress (var Message: TMessage); message WM_PROGRESS;
  public
    { Public declarations }
    procedure BeginProcess;
    property Data [Index: Integer]: PTask read GetData;
  end;

procedure MyThreadProc (Data: PThreadData); stdcall;

var
  Form1: TForm1;

implementation

function XCHG (My: DWORD; Looked: PDWORD): DWORD;
asm
    XCHG  [EDX],  EAX  { !!! }
end;

procedure RandomWork;
var
  i: Integer;
  r1, r2, r3: Extended;
begin
  Randomize;
  r1 := Random;
  r2 := Random;
  for i := 1 to Random(100000) do begin
    r3 := sin(r2);
    r2 := r1;
    r1 := Sqr(Sqrt(Sqr(Sqrt(Sqr(Sqrt(Sqr(Sqrt(Sqr(Sqrt(r3))))))))))
  end;
end;

procedure MyThreadProc (Data: PThreadData); stdcall;
var
  i: Integer;
  t: PTask;
  id: DWORD;
begin
  for i := Data.BeginPosition to Data.DataList.Count-1 do begin
    t := PTask (Data.DataList.Objects[i]);
    id := GetCurrentThreadId;
    if XCHG (id, @t.Flag) = 0 then begin
      t.Value := - t.Value;

      RandomWork; // типа работаем

      PostMessage (Application.MainForm.Handle, WM_PROGRESS, i, 0);
    end;
  end;

  SendMessageTimeout (Application.MainForm.Handle, WM_THEEND, GetCurrentThreadId, 0, SMTO_NORMAL, 0, 0);
end;

{$R *.dfm}

function TForm1.GetData(Index: Integer): PTask;
begin
  Result := PTask(lbxData.Items.Objects[Index]);
end;

procedure TForm1.WMProgress(var Message: TMessage);
begin
  Gauge1.Progress := Message.WParam;
end;

procedure TForm1.WMTheEnd (var Message: TMessage);
var
  i: Integer;
  buf: PThreadData;
  tmp: PTask;
begin
  for i := 0 to lbxThread.Count-1 do begin
    buf := PThreadData (lbxThread.Items.Objects[i]);
    if buf.ThreadId = Message.WParam then begin
      lbxThread.Items.Delete(i);
      FreeMem (buf);
      Break;
    end;
  end;
  if lbxThread.Count = 0 then begin
    Gauge1 .Visible := False;
    Button1.Visible := True ;

    for i := 0 to lbxData.Count-1 do begin
      tmp := PTask (lbxData.Items.Objects[i]);
      tmp.Flag := 0;
      lbxData.Items[i] := IntToStr(tmp.Value);
    end;
  end;
end;

procedure TForm1.BeginProcess;
var
  i: Integer;
  buf: PThreadData;
begin
  Gauge1.MinValue := 0;
  Gauge1.MaxValue := lbxData.Count;
  Gauge1.Progress := 0;
  Button1.Visible := False;
  Gauge1 .Visible := True ;

  for i := 1 to 4 do begin
    New(buf);
    buf.DataList := lbxData.Items;
    buf.BeginPosition := 0;
    buf.Handle := CreateThread (nil, 0, @MyThreadProc, buf, 0, buf.ThreadId);
    lbxThread.Items.AddObject (IntToHex(buf.ThreadId, 8), TObject(buf));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  BeginProcess;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j, k, c: Integer;
  r: Real;
  tmp: PTask;
begin
  Randomize;
  c := Random(100) + 1000;

  lbxData.Items.Clear;
  for i := 0 to c-1 do begin
    New(tmp);
    tmp.Value := Random(1000000);
    tmp.Flag := 0;
    lbxData.Items.AddObject (IntToStr(tmp.Value), TObject(tmp));
  end;
end;

end.

[darkwellroad]

Сообщение от Sibedir

Капча? Да?

Да. Вопрос про сжатие массива актуален

[Pavia]

Да. Вопрос про сжатие массива актуален

Делаете 2 функции преобразования:
1) из картинки в массив
2) из массива в картинку.
А после

При использовании изображений это не составит труда.

Можно ещё вот этот пример переделать под свои нужды:
http://forum.sources.ru/index.php?sh...&#entry2787608