Потоки

[Alex11223]

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

какие указатели?

Smart Pointer.

[Pavia]

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

Кстати, там еще не завезли умные указатели что ли?

Увы, но пока нет. Есть костыль чисто для потоков в виде
TTask.Future - чтобы вернуть значение из потока.

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

и еще интересно можно ли как то поймать завершение последнего потока?

ThreadPool.WaitAll;

[PTyTb32]

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

Smart Pointer.

я обычным то почти не пользуюсь ибо не разбирал его особо, а про смарт впервые узнаю. все мои познания в делфи взяты с этого и еще одного форума, плюс несколько статеек, ну и связывает это метод научного тыка, то есть пробовать разные варианты пока не заработает, после чего понять как оно работает и пытаться оптимизировать, но порой недостаток некоторых знаний не дает самостоятельно писать что то более сложное, с потоками к примеру знаком поверхностно и только вчера первый раз сделал более одного потока (не считая основного). и утечки памяти, out of memory первый раз пытаюсь исправить, раньше я даже память не чистил.. учусь по немногу в общем

[Alex11223]

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

я обычным то почти не пользуюсь

Как это не пользуетесь? А .Create что вам возвращают?

[PTyTb32]

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

Как это не пользуетесь? А .Create что вам возвращают?

не собирал никуда то что возывщает этот конструктор, я их просто вызываю и все

[Slym]

не знал? дарю

type
  TIPRange=record
  private
    CurrentIP,StopIP:cardinal;
    function IP2Cardinal(const IP:string):cardinal;
  public
    constructor Create(const Start,Stop:string);
    function GetNext(out Str:string):boolean;
  end;

{ TIPRange }
constructor TIPRange.Create(const Start, Stop: string);
begin
  CurrentIP:=IP2Cardinal(Start);
  StopIP:=IP2Cardinal(Stop);
end;

function TIPRange.IP2Cardinal(const IP: string): cardinal;
var
  IPRec:LongRec;
  Parts:TArray<string>;
begin
  Parts:=IP.Split(['.']);
  IPRec.Bytes[3]:=StrToInt(Parts[0]);
  IPRec.Bytes[2]:=StrToInt(Parts[1]);
  IPRec.Bytes[1]:=StrToInt(Parts[2]);
  IPRec.Bytes[0]:=StrToInt(Parts[3]);
  result:=cardinal(IPRec);
end;

function TIPRange.GetNext(out Str: string): boolean;
var IP:cardinal;
begin
  IP:=cardinal(TInterlocked.Increment(integer(CurrentIP)));
  result:=(IP<=StopIp);
  if result then
    Str:=IntToStr(LongRec(IP).Bytes[3])+'.'+IntToStr(LongRec(IP).Bytes[2])+'.'+
       IntToStr(LongRec(IP).Bytes[1])+'.'+IntToStr(LongRec(IP).Bytes[0])
  else
    Str:='';
end;

пользовать так
IPRange:=TIPRange.Create('192.168.0 .100','192.168.0.255');
while IPRange.GetNext(ips) do
....

[Slym]

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Threading, System.Generics.Collections,System.SyncObjs,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,IdIOHandler;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
  TIPRange=record
  private
    CurrentIP,StopIP:cardinal;
    function IP2Cardinal(const IP:string):cardinal;
  public
    constructor Create(const Start,Stop:string);
    function GetNext(out Str:string):boolean;
  end;

{ TIPRange }
constructor TIPRange.Create(const Start, Stop: string);
begin
  CurrentIP:=IP2Cardinal(Start);
  StopIP:=IP2Cardinal(Stop);
end;

function TIPRange.IP2Cardinal(const IP: string): cardinal;
var
  IPRec:LongRec;
  Parts:TArray<string>;
begin
  Parts:=IP.Split(['.']);
  IPRec.Bytes[3]:=StrToInt(Parts[0]);
  IPRec.Bytes[2]:=StrToInt(Parts[1]);
  IPRec.Bytes[1]:=StrToInt(Parts[2]);
  IPRec.Bytes[0]:=StrToInt(Parts[3]);
  result:=cardinal(IPRec);
end;

function TIPRange.GetNext(out Str: string): boolean;
var IP:cardinal;
begin
  IP:=cardinal(TInterlocked.Increment(integer(CurrentIP)));
  result:=(IP<=StopIp);
  if result then
    Str:=IntToStr(LongRec(IP).Bytes[3])+'.'+IntToStr(LongRec(IP).Bytes[2])+'.'+
       IntToStr(LongRec(IP).Bytes[1])+'.'+IntToStr(LongRec(IP).Bytes[0])
  else
    Str:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IPRange:TIPRange;
  i:integer;
begin
  IPRange:=TIPRange.Create('192.168.0.100','192.168.0.255');
  for i:=0 to 9 do
    TThread.CreateAnonymousThread(
      procedure
      var
        it:TIdTCPClient;
        ips:string;
      begin
        it := TIdTCPClient.Create(nil);
        try
          it.ConnectTimeout := 500;
          while IPRange.GetNext(ips) do
          begin
            if it.Connected then
              it.Disconnect(false);
            try
              it.Connect(ips,80);
              TThread.Synchronize(nil,procedure
              begin
                Memo1.Lines.Add(ips + ' YES');
              end);
            except
              TThread.Synchronize(nil, procedure
              begin
                Memo1.Lines.Add(ips + ' No');
              end);
            end;
          end;
        finally
          it.Free;
        end;
      end).Start;
end;

end.

[Alex11223]

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

я их просто вызываю и все

...а потом вызываете Free.
Вот умные указатели и нужны чтоб не вызывать Free самому.

Вообще их вроде и самому можно реализовать в современных Дельфи.
http://delphisorcery.blogspot.com/20...in-delphi.html

[PTyTb32]

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

Вообще их вроде и самому можно реализовать в современных Дельфи.
http://delphisorcery.blogspot.com/20...in-delphi.html

интересная статья, спасибо

[PTyTb32]

Спасибо большое, постараюсь понять что конкретно делает этот код