Нужно чтобы в потоке не было обращения к визуальным компонентам

@Tech66 · Регистрация: 18.08.2014

Author24 — интернет-сервис помощи студентам

Ребят выполнить вот это действие в потоке

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
for i:=0 to Memo1.Lines.Count-1 do
 begin
  s:=Memo1.Lines[i];
  delete(s,pos('@',s),pos(':',s)-pos('@',s));
  Memo1.Lines[i]:=s
 end;
end;
end;

!!! Ребят исправте ошибки! Мне нужно чтобы в потоке не было обращения к визуальным компонентам(Чтобы увеличить скорость) Тоисть нужно загрузить это наверно в какуюто переменную) В общем ребят пожалуйста! Заранее спасибо!!

@~~Сиськохват~~ · 18.08.2014, 21:47

Вместо memo, stringlist используй он такой же ток не визуальный

@Tech66 · 18.08.2014, 21:51 **[ТС]**

Можешь в коде показать?
Просто пока ещё 0 я а тут такое задание дали) Плиз покажи как

@~~Сиськохват~~ · 18.08.2014, 21:57

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
  sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('file');
for i:=0 to sl.Lines.Count-1 do
 begin
  s:=sl.Lines[i];
  delete(s,pos('@',s),pos(':',s)-pos('@',s));
  sl.Lines[i]:=s;
  Application.ProcessMessage;
 end;
memo1.text := sl.text;
sl.free;
 
end;
end;

ну чот типо того

@cotseec · 18.08.2014, 22:01

Не по теме:

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

а тут такое задание дали)

интереса для: а где именно такие задания дают?
Удалить домайны в Memo приведенный код ведь из вашей темы.....

@Tech66 · 18.08.2014, 22:02 **[ТС]**

for i:=0 to sl.Lines.Count-1 do
как в sl загржаються строки) я хз но у меня еоорр

Добавлено через 1 минуту
Работа с базой майлов нужно лично мне .

@~~Сиськохват~~ · 18.08.2014, 22:04

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

как в sl загржаються строки) я хз но у меня еоорр

Delphi

1	sl.LoadFromFile('путь к файлу со строками');

или ты их вручную в мемо вбиваешь?

@Tech66 · 18.08.2014, 22:17 **[ТС]**

А можно сделать чтоб и файла в формате txt брало?

Добавлено через 11 минут
Не получаеться( одни еоры

@~~Сиськохват~~ · 18.08.2014, 22:18

Думаю можно, но пока не знаю как, если узнаешь, отпишись обязательно)))

@Tech66 · 18.08.2014, 22:22 **[ТС]**

Ок) Но то что кинул там чтото ерит с lines

@~~Сиськохват~~ · 18.08.2014, 22:25

Delphi

var i:integer;
    s:string;
  sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('file');
for i:=0 to sl.Count-1 do
 begin
  s:=sl.Strings[i];
  delete(s,pos('@',s),pos(':',s)-pos('@',s));
  sl.Strings[i]:=s;
  Application.ProcessMessages;
 end;
memo1.text := sl.text;
sl.free;
 
end;

@Tech66 · 18.08.2014, 22:39 **[ТС]**

Count расчет же вроде)
Кароч нажимаю процесс не идёт лан может кто напишет ещё если что напишу те

Добавлено через 1 минуту
Вот кароч весь код
Посмотри может я че не так делаю

Delphi

unit Unit12;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, sGauge, Vcl.StdCtrls, sButton,
  sGroupBox, sMemo, sDialogs;
 
type
  TForm12 = class(TForm)
    sMemo1: TsMemo;
    sGroupBox1: TsGroupBox;
    sButton1: TsButton;
    sButton2: TsButton;
    sGauge1: TsGauge;
    sButton3: TsButton;
    sOpenDialog1: TsOpenDialog;
    sSaveDialog1: TsSaveDialog;
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
      TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
 
var
  Form12: TForm12;
 
implementation
 
{$R *.dfm}
 
procedure TForm12.sButton1Click(Sender: TObject);
begin
if sopendialog1.Execute=true then
smemo1.Lines.LoadFromFile(sopendialog1.FileName);
 
end;
 
procedure TForm12.sButton2Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpTimeCritical;
  NewThread.Resume;
end;
 
 
procedure tnewthread.Execute;
var i:integer;
    s:string;
  sl: TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('file');
for i:=0 to sl.Count-1 do
 begin
  s:=sl.Strings[i];
  delete(s,pos('@',s),pos(':',s)-pos('@',s));
  sl.Strings[i]:=s;
  Application.ProcessMessages;
 end;
smemo1.text := sl.text;
sl.free;
end;
 
end.

@~~Сиськохват~~ · 18.08.2014, 23:01

Delphi

unit Unit12;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, sGauge, Vcl.StdCtrls, sButton,
  sGroupBox, sMemo, sDialogs;
 
type
  TForm12 = class(TForm)
    sMemo1: TsMemo;
    sGroupBox1: TsGroupBox;
    sButton1: TsButton;
    sButton2: TsButton;
    sGauge1: TsGauge;
    sButton3: TsButton;
    sOpenDialog1: TsOpenDialog;
    sSaveDialog1: TsSaveDialog;
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TNewThread = class(TThread)
    sl:TStringList;
    path:String;
    procedure Execute; override;
    procedure Synx;
  end;
 
var
  Form12: TForm12;
 
implementation
 
{$R *.dfm}
 
procedure TForm12.sButton2Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  if not sopendialog1.Execute then Exit
  NewThread:=TNewThread.Create(true);
  NewThread.path := sopendialog1.FileName;
  NewThread.Resume;
end;
 
procedure tnewthread.Execute;
var i:integer;
    s:string;
begin
sl := TStringList.Create;
sl.LoadFromFile(path);
for i:=0 to sl.Count-1 do
 begin
  s:=sl.Strings[i];
  delete(s,pos('@',s),pos(':',s)-pos('@',s));
  sl.Strings[i]:=s;
 end;
 Synchronize(Synx);
sl.free;
end;
 
procedure tnewthread.Synx;
begin
  Form12.smemo1.text := sl.text;
end;
 
end.

@Tech66 · 18.08.2014, 23:13 **[ТС]**

Cпасибище огромное) Всё работает на ура)
И последнее можно как нибудь сделать чтоб разделитель автоматически определялся а то у меня работает только с : а хотелось чтобы и с ;

@~~Сиськохват~~ · 18.08.2014, 23:29

какие разделители?

@Tech66 · 18.08.2014, 23:48 **[ТС]**

например я загружаю базу емайлов с разделителем : (ыдыдд@mail.ru:1234) с этим разделителем все нормально работает а вот если я загружаю с разделителем ; то программа бездействует! как сделать чтобы программа работала с этими двумя разделителями

@~~Сиськохват~~ · 19.08.2014, 00:15

Delphi

1 2	if Pos(':',s) <> 0 then delete(s,pos('@',s),pos(':',s)-pos('@',s)) else delete(s,pos('@',s),pos(';',s)-pos('@',s));

@Tech66 · 19.08.2014, 08:32 **[ТС]**

спасибо большое

Добавлено через 1 час 14 минут
Всё норм) Только блин дублей много в тексте!
Можно по такомуже принципу удалить дубликаты ? чтобы тоже без взаимодействия с визуальными компонентами
а так всё супер

@Puporev · 19.08.2014, 10:02

Удалить дубликаты

Delphi

t:=TStringlist.Create;//создали лист
t.LoadFromFile(FileName);//загрузили текст
for i:=t.Count-1 downto 1 do
if t.IndexOf(t[i])<i then t.Delete(i);//удалили дубликаты

@Tech66 · 19.08.2014, 10:45 **[ТС]**

Спасибо работает отлично!

Добавлено через 22 минуты
Ребят не поможите с функцией парсинга!
Мне нужно взять прокси с сайта
Всё вроде бы норм!
Но берет не со всех
И почему то берет только 1 старицу а мне нужно взять со всех
Вот сам код

Delphi

unit Unit4;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sMemo, sButton, sEdit, regexpr,
  sLabel,  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, sDialogs, Vcl.ComCtrls, acProgressBar, sGauge;
 
type
  TForm4 = class(TForm)
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sButton1: TsButton;
    IdHTTP1: TIdHTTP;
    sButton2: TsButton;
    sButton3: TsButton;
    sLabel2: TsLabel;
    sSaveDialog1: TsSaveDialog;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
    sMemo1: TsMemo;
    sGauge1: TsGauge;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;
 
var
  Form4: TForm4;
  newthread:tnewthread;
 
implementation
 
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
begin
ssaveDialog1.DefaultExt := 'txt';
end;
 
procedure TForm4.sButton1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpTimeCritical;
  NewThread.Resume;
end;
procedure TForm4.sButton2Click(Sender: TObject);
begin
if ssavedialog1.Execute=true then
smemo1.Lines.SaveToFile(ssavedialog1.FileName);
end;
 
procedure TForm4.sButton3Click(Sender: TObject);
begin
smemo1.Clear;
form4.sLabel4.Caption:='Ожидание';
form4.sGauge1.Progress:=0;
slabel2.Caption:='Получено: ' + inttostr(smemo1.Lines.Count);
end;
 
procedure tnewthread.Execute;
var
reg:TRegExpr;
link:string;
prx:tstringlist;
i:integer;
begin
form4.smemo1.clear;
form4.slabel4.Caption:='Парсим';//озражение
Form4.sGauge1.Progress:=0;
form4.sLabel4.Caption:='Ожидание';
form4.slabel2.Caption:='Получено: 0';//Возвращаем счетчику кол-ва проксей результат:
form4.slabel4.Caption:='Парсим';
prx:=tstringlist.Create; //Создаем Tstringlist для сохранение проксей и вывода их в софте!
reg:=Tregexpr.Create;  //Создаем регулярное выражение
reg.Expression:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}'; //Сама регулярка для парсинга проксей
link:=Form4.IdHTTP1.Get(form4.sEdit1.Text); //Берем сайт из sEdit1
Form4.sGauge1.Progress:=Form4.sGauge1.Progress+50;
form4.sLabel4.Caption:='Собираем Результат';
if reg.Exec(link)then repeat   //Забираем рузльтат по Get запросу(link) выше!
prx.Add(reg.Match[0]); //Добавляем результат
until
not
reg.ExecNext; // готово!
form4.sMemo1.Lines.Text:=prx.Text; //Выводим результат в sMemo1
Form4.sGauge1.Progress:=Form4.sGauge1.Progress+50;
form4.sLabel2.Caption:='Получено: ' + inttostr(form4.smemo1.lines.count);
form4.sLabel4.Caption:='Готово';
 
end;
end.

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	18.08.2014, 23:48 [ТС]	16
	например я загружаю базу емайлов с разделителем : (ыдыдд@mail.ru:1234) с этим разделителем все нормально работает а вот если я загружаю с разделителем ; то программа бездействует! как сделать чтобы программа работала с этими двумя разделителями 0

Нужно чтобы в потоке не было обращения к визуальным компонентам

Решение

Решение

@~~Сиськохват~~ Заблокирован
	18.08.2014, 21:47	2
	Вместо memo, stringlist используй он такой же ток не визуальный 0

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	18.08.2014, 21:51 [ТС]	3
	Можешь в коде показать? Просто пока ещё 0 я а тут такое задание дали) Плиз покажи как 0

@cotseec
	18.08.2014, 22:01 #5
	Не по теме: Сообщение от Tech66 а тут такое задание дали) интереса для: а где именно такие задания дают? Удалить домайны в Memo приведенный код ведь из вашей темы..... 0

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	18.08.2014, 22:02 [ТС]	6
	for i:=0 to sl.Lines.Count-1 do как в sl загржаються строки) я хз но у меня еоорр Добавлено через 1 минуту Работа с базой майлов нужно лично мне . 0

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	18.08.2014, 22:17 [ТС]	8
	А можно сделать чтоб и файла в формате txt брало? Добавлено через 11 минут Не получаеться( одни еоры 0

@~~Сиськохват~~ Заблокирован
	18.08.2014, 22:18	9
	Думаю можно, но пока не знаю как, если узнаешь, отпишись обязательно))) 1

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	18.08.2014, 22:22 [ТС]	10
	Ок) Но то что кинул там чтото ерит с lines 0

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	18.08.2014, 23:13 [ТС]	14
	Cпасибище огромное) Всё работает на ура) И последнее можно как нибудь сделать чтоб разделитель автоматически определялся а то у меня работает только с : а хотелось чтобы и с ; 0

@~~Сиськохват~~ Заблокирован
	18.08.2014, 23:29	15
	какие разделители? 0

@Tech66 2 / 2 / 1 Регистрация: 18.08.2014 Сообщений: 35
	19.08.2014, 08:32 [ТС]	18
	спасибо большое Добавлено через 1 час 14 минут Всё норм) Только блин дублей много в тексте! Можно по такомуже принципу удалить дубликаты ? чтобы тоже без взаимодействия с визуальными компонентами а так всё супер 0