Загрузка содержимого memo в поток.

[*Хalyava*]

Прошу помощи.

Мне нужно загрузить в поток содержимое memo так сказать.

так как программа будет многопоточная нужно написать в критической секции код, чтобы поток не хватал одну и ту же строку из memo (я так предпологаю). не знаю что писать в критической секции. помогите.

дальше...

гет запрос на URl адрес и как дополнительный параметр при запросе одна из строк из memo. дальше вторая и т.д.


как это можно реализовать ?

[uma1805]

Ну чот типа такого )
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]

type
TForm2 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Thr = class(TThread)
private
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
end;

var
Form2: TForm2;

implementation

{$R *.dfm}
var
Thread, Acc:integer;
CrS:TcriticalSection;
Work:boolean;
SList:Tstringlist;

constructor Thr.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
end;

procedure Thr.Execute;
var
url,result:string;
CAcc:integer;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id:string;
begin
while Work do
begin
CrS.Enter;
Inc(Acc);
if Acc<SList.Count then CAcc:=Acc else Work:=false;
CrS.Leave;
if Work then
begin
id:=SList[CAcc];
url:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+id;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
result:=[Ссылки могут видеть только зарегистрированные и активированные пользователи](url);
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
end;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SList.Clear;
for I := 0 to Memo1.lines.Count - 1 do
SList.Add(Memo1.Lines[i]);
Acc:=-1;
Work:=true;
for Thread:=1 to strtoint(Edit1.Text) do
Thr.Create(false);
Thread:=strtoint(Edit1.Text);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
SList:=Tstringlist.create;
CrS:=TcriticalSection.create;
end;

end.


[Ссылки могут видеть только зарегистрированные и активированные пользователи]

[R.A.Z.O.R]

Используй синхронизацию и записывай глобальную целую переменную

[*Хalyava*]

Ну чот типа такого )
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]

type
TForm2 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Thr = class(TThread)
private
protected
procedure Execute; override;
public
constructor Create(CreateSuspended: Boolean);
end;

var
Form2: TForm2;

implementation

{$R *.dfm}
var
Thread, Acc:integer;
CrS:TcriticalSection;
Work:boolean;
SList:Tstringlist;

constructor Thr.Create(CreateSuspended: Boolean);
begin
inherited Create(CreateSuspended);
end;

procedure Thr.Execute;
var
url,result:string;
CAcc:integer;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id:string;
begin
while Work do
begin
CrS.Enter;
Inc(Acc);
if Acc<SList.Count then CAcc:=Acc else Work:=false;
CrS.Leave;
if Work then
begin
id:=SList[CAcc];
url:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+id;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
result:=[Ссылки могут видеть только зарегистрированные и активированные пользователи](url);
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
end;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SList.Clear;
for I := 0 to Memo1.lines.Count - 1 do
SList.Add(Memo1.Lines[i]);
Acc:=-1;
Work:=true;
for Thread:=1 to strtoint(Edit1.Text) do
Thr.Create(false);
Thread:=strtoint(Edit1.Text);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
SList:=Tstringlist.create;
CrS:=TcriticalSection.create;
end;

end.


[Ссылки могут видеть только зарегистрированные и активированные пользователи]


при 1 потоке все нормально, как только ставлю 2 или более, выскакивает ошибка.
помогите ))

код:
procedure TNewThread.Execute;
var
s1:string;
CAcc:integer;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id:string;
begin

while Work do
begin
CrS.Enter;
Inc(Acc);
if Acc<SList.Count then CAcc:=Acc else Work:=false;
CrS.Leave;

if Work then
begin
id:=SList[CAcc];



s1:=Form1.[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]сайт'+id);
if Pos('"back"',s1)<>0 then
begin
Rez:=1;
end
else
Rez:=-1;



synchronize(Sync);

end;
end;
end;

p.s. сама ошибка:
ProjecProject.exe raised exception class EAccessViolation with message 'Acess violation at adress 0040457C in module 'Project.exe'. Write of adress 00000018'. Process Stopped. Use Step or Run to continue.

[[M.G.] KoBaL]

при 1 потоке все нормально, как только ставлю 2 или более, выскакивает ошибка.
помогите ))

код:
procedure TNewThread.Execute;
var
s1:string;
CAcc:integer;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
id:string;
begin

while Work do
begin
CrS.Enter;
Inc(Acc);
if Acc<SList.Count then CAcc:=Acc else Work:=false;
CrS.Leave;

if Work then
begin
id:=SList[CAcc];



s1:=Form1.[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]сайт'+id);
if Pos('"back"',s1)<>0 then
begin
Rez:=1;
end
else
Rez:=-1;



synchronize(Sync);

end;
end;
end;

p.s. сама ошибка:
ProjecProject.exe raised exception class EAccessViolation with message 'Acess violation at adress 0040457C in module 'Project.exe'. Write of adress 00000018'. Process Stopped. Use Step or Run to continue.

Могу с нуля помочь кодом, а то твой хрен разберёшь.


1. Объяви глобальную переменную, например:



var
Account_Now : Integer;



2. В потоке объяви локальную переменную, например:



var
Temp_String : Integer;




3. В потоке сделай вот такой код



Critical_Section.Enter;

Account_Now := Account_Now + 1;

Temp_String := Memo1.Lines.Strings[Account_Now];

Critical_Section.Leave;



В результате в Temp_String будет занесен текст, который будет взять из строки равной номеру аккаунта [ Не забывай, что отсчёт идёт от нуля ]