[Delphi] Функцию в паток

Хелп!У мну есть функция,я её пытаюсь вывести в поток,но у меня не палучаеца,может кто нибуть даст сорц с каментоми?

 

мб лучше ты сорец дашь?
что не получается? как поток создаешь?

 

глянь видео: http://avtuh.ru/2010/04/09/delphi-dopolnitelnyj-potok-v-programme.html

 

a ваще я предложу так:

Code:

[b]type[/b] TmyThread = [b]class[/b](TThread)
[b]procedure[/b] Execurte; [b]override;[/b]
[b]end;[/b]

....

[b]procedure[/b] TMyThread.Execute;
[b]begin[/b]
[color=navy][i]// Код функции[/color][/i]
[b]end;[/b]

в принципе это самы стандартный пример)))) Вызываеца так:

Code:

[b]var[/b] MyThread : TMyThread;
[b]begin[/b]
  MyThread := TMyThread.Create(False);
[b]end;[/b]

кароче думаю вы понели о чем речь))))

 

cel, Добавляешь в проект Thread Object и делаешь то что написал RedFern )

 

ну почему же? вполне можно обойтись и так:

Code:

procedure fcn();
begin
  {come thread code}
end;

procedure TForm1.Button1Click(Sender: TObject);
 var thid: cardinal;
begin
  CreateThread(nil,0,@fnc,nil,0,thid);
end;

но в этом случае немного сложнее с синхронизацией..
в общем, все зависит от конкретной задачи

 

Чем? EnterCriticalSection дольше писать, чем Synchronize?

 

ок,всё понял,ещё есть 1 вопрос,пишу здесь дабы не плодить темы:
Как можно спарсить куку при входе в контакт, когда авторизуешся через соцкет?

 

:triple_facepalm:

 

парсишь текст между 'remixsid=' и ';'

 

я это зна. как,я не понемаю, у меня выходит тока в TClientSocket в ответе:

HTML:

HTTP/1.1 200 OK
Server: nginx/0.7.59
Date: Fri, 23 Apr 2010 19:58:00 GMT
Content-Type: text/html; charset=windows-1251
Connection: keep-alive
X-Powered-By: PHP/5.2.6-1+lenny3
Pragma: no-cache
Cache-control: no-store
P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"
Set-Cookie: l=33244867; expires=Wed, 04-May-2011 12:40:08 GMT; path=/; domain=login.vk.com
Set-Cookie: p=a73839ac6d728d1f88f44ce2f9db1c1650ca; expires=Sat, 16-Apr-2011 06:28:04 GMT; path=/; domain=login.vk.com
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 346

и я хз что парсить т.к. я автаризуюсь через загаловки

 

куки (а точнее remixsid) тебе выдаюца после 2го запроса на сервер)) после login.vk.com

 

Авторизуйся get-запросом "http://vkontakte.ru/login.php?email=ТВОЙ_ЛОГИН&pass=ТВОЙ_ПАС", в ответе будет remixsid

 

не, это не то,мне нужно узнать как вытащить куку s через соцкет,я её и не магу вытощить чтоб отправить на http://vkontakte.ru/login.php

 

s никакого отношения к кукам не имеет и парсится из тела ответа

 

хорошо, как тогда палучить тело ответа из соцкетов?

 

ап

 

тело идет после заголовка через #13#10#13#10

 

вот что мне кидает после заголовков

HTML:

HTTP/1.1 200 OK
Server: nginx/0.7.59
Date: Sat, 24 Apr 2010 19:22:49 GMT
Content-Type: text/html; charset=windows-1251
Connection: keep-alive
X-Powered-By: PHP/5.2.6-1+lenny4
Pragma: no-cache
Cache-control: no-store
P3P: CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"
Set-Cookie: l=33206867; expires=Sun, 01-May-2011 14:59:48 GMT; path=/; domain=login.vk.com
Set-Cookie: p=b5767e60e83f9ec53ec585f85741bb4cabcc; expires=Sat, 30-Apr-2011 21:08:48 GMT; path=/; domain=login.vk.com
Content-Encoding: gzip
Vary: Accept-Encoding
Content-Length: 346

‹- врятли это тело)