Работа с потоками в delphi

[Zubastic]

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

Из потоков нельзя просто так вызывать функции VCL. И нельзя просто так обращаться ко внешним данным (или вызывать функции, которые используют внешние данные). Все должно быть синхронизировано: или с использованием блокировок, или с посылкой сообщений в основной поток (который в свою очередь уже будет работать с общими данными).

А можно пример? Как я понял, имеется ввиду CriticalSection, нет?

[Hint]

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

А можно пример? Как я понял, имеется ввиду CriticalSection, нет?

Да, это и есть блокировки (enter / leave или lock / unlock).

Пример (что первым попалось в коде). Есть поток, отвечающий за связь с веб-сервером (класс TWebClient). Если рабочий поток, собирающий данные. Рабочий поток для отправки данных вызывает метод AddUserData.

procedure TWebClient.AddUserData(Line: string);
begin
  UserData.Lock;
  try
    UserData.Add(line);
  finally
    UserData.Unlock;
  end;
end;

UserData - private свойство класса TWebClient.

Поток TWebClient с определенным интервалом соединяется с сервером и вызывает свой метод SendUserData:

function TWebClient.SendUserData: Integer;
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Clear;
    UserData.Lock; // Блокируем объект
    try
      SL.AddStrings(UserData); // Копируем содержимое в локальный объект
      UserData.Clear;
    finally
      UserData.Unlock; // Снимаем блокировку
    end;    
    
    if SL.Count > 0 then
      begin
        Result := UploadData(SL);
        if Result = -1 then
          begin
            UserData.Lock;
            try
              UserData.AddStrings(SL);
            finally
              UserData.Unlock;
            end;            
          end;
      end
    else Result := 0;
  finally
    FreeAndNil(SL);
  end;
end;

Общие данные - объект UserData (свой класс TSafeStringList). При работе с ним используются критические секции (сначала Lock, потом Unlock).

  TSafeStringList = class(TStringList)
  private
    CriticalSection: TCriticalSection;
  public
    procedure Lock;
    procedure Unlock;
    constructor Create;
    destructor Destroy; override;
  end;
...
constructor TSafeStringList.Create;
begin
  inherited Create;
  CriticalSection := TCriticalSection.Create;
end;

destructor TSafeStringList.Destroy;
begin
  CriticalSection.Free;
  inherited Destroy;
end;

procedure TSafeStringList.Lock;
begin
  CriticalSection.Enter;
end;

procedure TSafeStringList.Unlock;
begin
  CriticalSection.Leave;
end;

[Zubastic]

Вопрос немного не по теме:
В программе есть встроенный апдейтер, в итоге касперский определяет программу как самообновляющееся троянское ПО. Впринципе решение - криптовать исполняемый файл, но есть ли что-то более удобное?

Добавлено через 1 час 8 минут

 if ver<Memo3.Lines[0] then
 begin
  Stream:=TMemoryStream.Create;
  Stream.LoadFromFile(paths+'Updater.exe');
  Stream2:=TMemoryStream.Create;
  try
   idHTTP1.Get(url, Stream2); //Загрузка в поток данных из сети
   if Stream.Size <> Stream2.Size then
   begin
    DeleteFile(paths+'Updater.exe');
    Stream2.SaveToFile(paths+'Updater.exe');
   end;
   ShellExecute(Form1.Handle,'open', pchar(paths+'Updater.exe'), nil, nil, SW_SHOWNORMAL);
   Application.Terminate;
  except
   on E:Exception do
   begin
    if FileExists(paths+'error.log') then Memo3.Lines.LoadFromFile(paths+'error.log');
    if idHTTP1.ResponseCode = -1 then Memo3.Lines.Add(DateTimeToStr(Now)+' - Не удается скачать апдейтер. (-1)')
    else if idHTTP1.ResponseCode = 404 then Memo3.Lines.Add(DateTimeToStr(Now)+' - Апдейтер не найден. (404)')
    else Memo3.Lines.Add(DateTimeToStr(Now)+' - Error: '+E.ClassName+'. Msg: '+E.Message);
    Memo3.Lines.SaveToFile(paths+'error.log');
   end;
  end;
  Stream.Free;
  Stream2.Free;
 end;
Code: Pascal

Ругается конкретно на строчку с ShellExecute.

[KilRoy]

Дабы не гадить новой темой в разделе - подскажите по плюсовым (С++) потокам:
1) Возможно ли ограничивать как то созданный поток ресурсами ПК (Ибо в некоторых случаях грузит проц в 100% (если использовать цикл в новом потоке)
2) Возможно ли стартовать новый поток по таймеру, но при этом не глушить BaseThread?(Тупанул со Sleep)
3) Мельком натыкался на инфу, что не стоит юзать CreateThread обычного WinAPI...Что с ним не так? К чему приводит?
4) для чего многие описывают CloseHandle(Thread)? Поток же и так закроется при выполнении нужной задачи О_о (Или тут я чего-то не понял?)
---
P.S - начал чуток познавать плюсы, но нет жесткой возможности много читать Работа...

[G1ta0]

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

1) Возможно ли ограничивать как то созданный поток ресурсами ПК (Ибо в некоторых случаях грузит проц в 100% (если использовать цикл в новом потоке)

Юзать приоритеты и Sleep/WaitFor... если нет полезной нагрузки.

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

3) Мельком натыкался на инфу, что не стоит юзать CreateThread обычного WinAPI...Что с ним не так? К чему приводит?

К ошибкам выделения памяти, инфы тонна, в Delphi к слову также, надо юзать beginthread.

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

4) для чего многие описывают CloseHandle(Thread)? Поток же и так закроется при выполнении нужной задачи О_о (Или тут я чего-то не понял?).

Незакрытый хендл порождает утечку объекта: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

The thread object remains in the system until the thread has terminated and all handles to it have been closed through a call to CloseHandle.

[Zubastic]

G1ta0, вообще как сделать самообновление без детектирования антивирем?

[G1ta0]

Да они в любом случаем ругаются на апдейтеры самописные. Попробуй CreateProcess вместо ShellExecute.

[KilRoy]

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

К ошибкам выделения памяти, инфы тонна, в Delphi к слову также, надо юзать beginthread.

Кстати пересев на _beginthread заметил кое какие улучшения в быстродействии вроде как Правда размер компиленной программки вырос чуток Ну то мелочи
СПС за инфу!!!

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

Юзать приоритеты и Sleep/WaitFor... если нет полезной нагрузки.

Каждая миллисекунда на весу Но всё же слип пришлось использовать, ибо это был хаос...Но меня не это интересовало

[G1ta0]

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

Каждая миллисекунда на весу Но всё же слип пришлось использовать, ибо это был хаос...Но меня не это интересовало

Чтобы поток не отжирал весь проц, можно передавать периодически управление на другой поток (yield). Если действительно задача не может обойтись Sleep.

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx