
01.06.2007, 01:15
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
С нами:
10088966
Репутация:
646
|
|
Значит так в двух словах. Открываешь делфню - там проект пустой. Сохраняешь его в папку какую-нибудь. Потом выполняешь файл - создать - другое - объект потока. В классе написать можно что-нибудь типа TMyThread. Создастся новый модуль с методом Execute - то, что должно выполняться в потоке. Для теста можно всунуть что-нибудь, что должно занять пару секунд на выполнение, например winexec(какая-нибудь большая прога, sw_show). Этот модуль подключаешь к проекту и сохраняешь в ту же папку. В проекте делаешь кнопку, на ней событие, например такое
Код:
var
potok: TMyThread;
begin
potok := TMyThread.Create(true);
potok.Resume;
messagebox(handle,'хай','xaй',mb_iconerror or mb_ok);
end;
Ну и в итоге получается, что мессажбокс вылазит, не дожидаясь загрузки какой-нибудь большой программы.
З.Ы. Если поток что-то с интерфейсом проги мутит, нужно синхронизацию юзать
З.З.Ы. Я лично апишками потоки мучу, имхо удобней
|
|
|

01.06.2007, 12:14
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
Я для работы с потоком юзаю вот такие вот вещи:
Код:
var
thread_id:array[1..100] of dword; // типа 100 потоков можно будет юзать
..........
procedure mypotok(id:dword);stdcall;
begin
..............
end;
.......
for x:=1 to 100 do
begin
thread_id[x]:=CreateThread(nil, 0, @mypotok, pointer(x), 0, thread_id[x]); // запустить потоки
SuspendThread(thread_id[x]); // приостановить потоки
ResumeThread(thread_id[x]); // возобновить работу потоков
TerminateThread(thread_id[x],0); // прибить поток
end;
Всё На чистом апи. При запуске потока ему передается его номер (ID)
|
|
|

03.06.2007, 13:35
|
|
Новичок
Регистрация: 18.05.2007
Сообщений: 4
С нами:
9991034
Репутация:
0
|
|
Помогите решить пару задачек плиз
две параболы на плоскости заданы коэфициэнтами своих уравнений. Выяснить, существуют для них точки пересечения, если есть, то найти их
Задав пользователю только один дополнительный вопрос с ответом "да" или "нет", определить, писать окончание "ым" или "ом" в мужском и среднем роде прилагательных. ( Например в словах новом, новым)
|
|
|

03.06.2007, 15:55
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
С нами:
10439609
Репутация:
71
|
|
Сообщение от trOid
Задав пользователю только один дополнительный вопрос с ответом "да" или "нет", определить, писать окончание "ым" или "ом" в мужском и среднем роде прилагательных. ( Например в словах новом, новым)
Вопрос: Правильно будет написать "ым"?
ответ: да\нет =)
|
|
|

03.06.2007, 17:41
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами:
10393869
Репутация:
2032
|
|
Сообщение от trOid
Помогите решить пару задачек плиз
Задав пользователю только один дополнительный вопрос с ответом "да" или "нет", определить, писать окончание "ым" или "ом" в мужском и среднем роде прилагательных. ( Например в словах новом, новым)
поясни условие =)
|
|
|

03.06.2007, 17:59
|
|
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
С нами:
10216668
Репутация:
930
|
|
Сообщение от trOid
две параболы на плоскости заданы коэфициэнтами своих уравнений. Выяснить, существуют для них точки пересечения, если есть, то найти их
Решаем систему уравнений. все элементарно.
|
|
|

05.06.2007, 12:36
|
|
Новичок
Регистрация: 04.06.2007
Сообщений: 3
С нами:
9966608
Репутация:
1
|
|
Хай всем! Я ламер ушастый, прошу не дергать за уши. Так это было вступление. Меня интересует, возможно ли отправка сообщений на мыло с помощью дельфина. Заранее благодарю. Кстати это мое первое сообщение. Можете поздравить.
|
|
|

05.06.2007, 12:45
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами:
10393869
Репутация:
2032
|
|
Сообщение от alpan
Меня интересует, возможно ли отправка сообщений на мыло с помощью дельфина.
да
Сообщение от alpan
Я ламер ушастый, прошу не дергать за уши.
на ачате эльфы? откуда?
|
|
|

05.06.2007, 13:03
|
|
Участник форума
Регистрация: 19.05.2007
Сообщений: 228
С нами:
9989667
Репутация:
240
|
|
Отправку письма замутить можно, было бы время и желание.
Юзай компоненты IdSMTP с вкладки Indy Clients и idMessage с вкладки Indy Misc. Ставь кнопень, пиши код
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
IdSMTP: TIdSMTP;
idMessage: TidMessage;
begin
idMessage := TIdMessage.Create(nil);
try
with idMessage do
begin
Recipients.Add.Address :='lol@mail.ru';{ кому отправляем }
Subject :='Привет с античата!';{Тема}
From.Address := 'Inter@yandex.ru';{ свое мыло }
Body.Text := 'Добрый день'+#13+
'Я знаю Delphi';
end;
IdSMTP := TIdSMTP.Create(nil);
with IdSMTP do
try
Host := 'smtp.ukrwest.net'; { сервер исходящей почты }
Connect;
Send(idMessage);
Disconnect;
finally
Free;
end;
finally
Free;
end;
end;
и будет тебе щастье!
З. Ы. Как видите так можно посылать анонимную почту. Удачи!
|
|
|

05.06.2007, 12:55
|
|
Новичок
Регистрация: 04.06.2007
Сообщений: 3
С нами:
9966608
Репутация:
1
|
|
А можно не много подробней?
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|