VPF::Поток как функция - Форум программистов

halfhope

Дата 21.1.2011, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Можно ли как-нибудь реализовать поток в виде ф-ии. Т.е. есть ф-ия, которая берет инфу с сервера. Нужно выполнить её результат. К примеру:

Код


 mmo1.text := GetServerinfo('http://www.sdf.df');

Только не получается выполнить её в потоке. Так, пока прога ждет ответа, все VCL виснут, я пробовал использовать AsyncCalls и TasksEx но это не решило проблему... Как это сделать или есть альтернативы.
По моему из tasks Ex все вызывалось так.

Код


procedure asd();
begin
  try
    beginMainThread;
  //Здесь код, который нужно выполнить. 
  finally
    leaveMainThread;
  end;
end;

ziga

Дата 21.1.2011, 10:51 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 273
Регистрация: 25.4.2007

Репутация: 1
Всего: 1

можно попробовать выполнить в таймере делаешь при нажатии на кнопку

Код


Timer1.enable := true;

а в таймере

Код


Timer1.Enable := false; // что бы выполнился 1 раз
mmo1.text := GetServerinfo('http://www.sdf.df');

halfhope

Дата 21.1.2011, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

А Tmr1.OnTimer В потоке работать будет?

ziga

Дата 21.1.2011, 12:52 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 273
Регистрация: 25.4.2007

Репутация: 1
Всего: 1

В твоём случае таймер будет выполнять роль потока, в нутри Tmr1.OnTimer поток отдельный создавать не надо, я таймер обычно использую когда на форме с кучей вкладок надо загрузить данные из БД в грид, при этом избежать зависания программы на то время пока эти данные подгрузятся, получается так что при выполнение тяжелого запроса в таймере он продолжает выполнятся при этом зависание не происходит.

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

Это сообщение отредактировал(а) ziga - 21.1.2011, 12:53

Poseidon

Дата 21.1.2011, 12:56 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Какой таймер? Таймер без отдельного потока будет выполнятся в основном потоке. И если GetServerinfo будет ждать информацию, будет "висеть" вся программа.

halfhope, что не дает использовать TThread? Там все очень просто и красиво получится.

Это сообщение отредактировал(а) Poseidon - 21.1.2011, 12:57

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

halfhope

Дата 21.1.2011, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

TThread по своей природе не дает выполнить себя как функцию(т.е. чтобы возвращала результат, сразу после запроса). Т.Е. function GetServerinfo(str:string):string; //Сразу получение результата.
А с потоками получиться только процедура и событие
procedure getServerInfo(string);//Мы вызовет TThread
А при ответе методом synchronize он вернет нам событие.
OnServerResponse(result:string); // Получается либо процедура/событие либо ничего.
Ни получается сделать у меня в виде ф-ии
Слышал в 2009delphi можно отдельно выбранные ф-ии/процедуры в отдельных потоках выполнять. Правда?

Poseidon

Дата 21.1.2011, 22:29 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(halfhope @ 21.1.2011, 18:37

)

Т.Е. function GetServerinfo(str:string):string; //Сразу получение результата

Так а что у тебя там в GetServerinfo? Простой вызов этой функции возвращает результат сразу?

Цитата(halfhope @ 21.1.2011, 18:37

)

А с потоками получиться только процедура и событие

И что? Кто мешает запихнуть функцию в процедуру?

В общем, как-то так.

Код


{...}
type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
    function GetServerInfo(URL:string):string;
    procedure GetInfo;
  end;

implementation

procedure TMyThread.Execute;
begin
  Synchronize(GetInfo);
end;

procedure TMyThread.GetInfo;
begin
  mmo1.text := GetServerinfo('http://www.sdf.df');
end;

function TMyThread.GetServerInfo(URL: string): string;
begin
  // бла бла бла
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

halfhope

Дата 22.1.2011, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Что то как-то просто, спасибо, посмотрю.

northener

Дата 22.1.2011, 00:31 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(Poseidon @ 21.1.2011, 22:29

)

procedure TMyThread.Execute;
begin
Synchronize(GetInfo);
end;
procedure TMyThread.GetInfo;
begin
mmo1.text := GetServerinfo('http://www.sdf.df');
end;

И какой смысл тогда в доппотоке, если все выполняется в главном потоке?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Poseidon

Дата 22.1.2011, 03:24 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

northener, в главном выполняется только присвоение mmo1.text значения, возвращенного функцией. Сама функция выполняется в отдельном потоке. А что у нас занимает время и заставляет программу "зависнуть"? Именно выполнение функции, а не присвоение ее значения визуальному компоненту.

Добавлено @ 03:36
Хотя сори, правда тормазнул. Вот что значит писать код сразу в браузер не обдумывая его.

Код


{...}
type
  TMyThread = class(TThread)
  protected
    ServerInfo: string;
    procedure Execute; override;
    function GetServerInfo(URL:string):string;
    procedure GetInfo;
  end;

implementation

procedure TMyThread.Execute;
begin
  ServerInfo := GetServerinfo('http://www.sdf.df');
  Synchronize(GetInfo);
end;

function TMyThread.GetServerInfo(URL: string): string;
begin
  // бла бла бла
end;

procedure TMyThread.GetInfo;
begin
  mmo1.Text:= ServerInfo;
end;

Это сообщение отредактировал(а) Poseidon - 22.1.2011, 03:38

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

northener

Дата 22.1.2011, 04:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(Poseidon @ 22.1.2011, 03:24

)

Добавлено @ 03:36

Теперь осталось узнать почему такое решение не устраивает автора.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

halfhope

Дата 24.1.2011, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Все устраивает, вопрос закрыт, Спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »