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

[cel]

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

[[stranger]]

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

[ZdezBilYa]

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

[RedFern.89]

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


type TmyThread = class(TThread)
procedure Execurte; override;
end;

....

procedure TMyThread.Execute;
begin
// Код функции
end;



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


var MyThread : TMyThread;
begin
MyThread := TMyThread.Create(False);
end;



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

[fenixelite]

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

[[stranger]]

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

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

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


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

[M_script_]

']но в этом случае немного сложнее с синхронизацией..
Чем? EnterCriticalSection дольше писать, чем Synchronize?

[cel]

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

[gisTy]

соцкет:triple_facepalm:

[M_script_]

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

[cel]

парсишь текст между 'remixsid=' и ';'
я это зна. как,я не понемаю, у меня выходит тока в TClientSocket в ответе:
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

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

[RedFern.89]

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

[M_script_]

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

[cel]

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

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

[M_script_]

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

[cel]

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

[cel]

ап

[[stranger]]

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

[cel]

']тело идет после заголовка через #13#10#13#10
вот что мне кидает после заголовков
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

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