Не работает прога на другом компе.

[Tip.the.besT]

Соответственно я компилю из под Windows 8 x32 и delphi xe3, далее кидаю прогу на windows 7 x64, и она тупо зависает при нажатии на кнопку. При нажатии на кнопку вообще запускается поток. В котором используются стопорении либы. synapse и ещё парочка... Дак вот, возможно есть какие галочки в настройках компиляции программы интересные?

Где кстати галочка, благодаря которой библиотеки компиляться в exe?

[astecenko]

тупо зависать программы не умеют, эт только люди...
возможно у Вас используется определение расположения каких-нибудь файлов или каталогов без учета специфики 64 разрядн ОС.
Если есть права администратора на Win7x64 то возьмите ProcessMonitor и посмотрите что ищет и не может найти Ваша программа.

[Stilet]

благодаря которой библиотеки компиляться в exe?

Не все либы могут линковаться внутрь.

она тупо зависает
...
используются стопорении либы. synapse

Ну а ты не думаешь что висяк из-за того что синапс не может в инет достучаться благодаря файерволлу или антивирю?

[Tip.the.besT]

Дак всё таки где устанавливается, что бы либы тянулись? Так, что бы проверить.


Смотрю снифером, один запрос отправляется и всё. И подвисает, хотя ответ получаю.

[Человек_Борща]

Ну а ты не думаешь что висяк из-за того что синапс не может в инет достучаться благодаря файерволлу или антивирю?

Там Timeout есть, вроде бы на 5000 мсек установлен.

Дак вот, возможно есть какие галочки в настройках компиляции программы интересные?

Есть много интересных галочек. О которых не менее интересно написано в справке.

Где кстати галочка, благодаря которой библиотеки компиляться в exe?

Сборка с run-time пакетами включена по-умолчанию.

[Tip.the.besT]

Человек_Борща, Ясно.

Что вы можете посоветовать, что бы исправить эту проблему?

Прилагаю код кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
http:thttpsend;
list:tstringlist;
stream:tstringstream;
s,ss,sss,ip_h:string;
i,iii,ii:integer;
begin
http:=thttpsend.Create;
list:=tstringlist.Create;
stream:=tstringstream.Create;

//авторизация VK
repeat
  http.Headers.Clear;
  http.Cookies.Clear;
  http.Document.Clear;
  http.Document.LoadFromStream(stream);
  http.UserAgent:='Mozilla/5.0 (Windows NT 6.2; rv:21.0) Gecko/20100101 Firefox/21.0';
  //http.MimeType:='application/x-www-form-urlencoded';
until http.HTTPMethod('GET','http://vk.com/');
list.LoadFromStream(http.Document); ip_h:=list.Text;

delete(ip_h,1,pos('name="ip_h"',ip_h)+12);
delete(ip_h,1,pos('"',ip_h));
delete(ip_h,pos('"',ip_h),maxint);

stream.WriteString('act=login' +
                   '&role=al_frame' +
                   '&expire=' +
                   '&captcha_sid=' +
                   '&captcha_key=' +
                   '&_origin=http://vk.com' +
                   '&ip_h='+ip_h+
                   '&email='+fglogin.Text+
                   '&pass='+fgpass.Text);

repeat
  http.Headers.Clear;
  http.Document.Clear;
  http.Document.LoadFromStream(stream);
  http.UserAgent:='Mozilla/5.0 (Windows NT 6.2; rv:21.0) Gecko/20100101 Firefox/21.0';
  http.MimeType:='application/x-www-form-urlencoded';
until http.HTTPMethod('POST','https://login.vk.com/?act=login');
s:=http.headers.Text;

delete(s,1,pos('Location: ',s)+9);
delete(s,Length(s)-3,maxint);

repeat
  http.Headers.Clear;
  http.Document.Clear;
  http.UserAgent:='Mozilla/5.0 (Windows NT 6.2; rv:21.0) Gecko/20100101 Firefox/21.0';
  //http.MimeType:='application/x-www-form-urlencoded';
until http.HTTPMethod('GET',s);

repeat
  http.Headers.Clear;
  http.Document.Clear;
  http.UserAgent:='Mozilla/5.0 (Windows NT 6.2; rv:21.0) Gecko/20100101 Firefox/21.0';
  //http.MimeType:='application/x-www-form-urlencoded';
until http.HTTPMethod('GET','http://vk.com/feed');
cook:=http.Cookies.Text;

grab.Create(false);

list.Free;
http.Free;
stream.Free;
end;

Судя по сниферу, зависаем на первом же запросе синапса, хотя ответ успешно получаем.

[Stilet]

Я хоть и не человек, и не всегда борща, но могу посоветовать описать некую процедуру, которая бы выводила в текстовый LOG файл некую строку, и применить так:

//авторизация VK
log('Начали первый цикл');
repeat
  http.Headers.Clear;
  http.Cookies.Clear;
  http.Document.Clear;
log('Загрузили стрим');
  http.Document.LoadFromStream(stream);
  http.UserAgent:='Mozilla/5.0 (Windows NT 6.2; rv:21.0) Gecko/20100101 Firefox/21.0';
  //http.MimeType:='application/x-www-form-urlencoded';
log('Попытка коннекта с Дуровым');
until http.HTTPMethod('GET','http://vk.com/');
log('Коннект удался');
list.LoadFromStream(http.Document); ip_h:=list.Text;
log('Тут еще что нить');

Сама log может выглядеть так:

procedure log(s:string);
var f:textfile;
begin
 assignFile(f,'log.txt'); append(f); writeln(now:20,s); closeFile(f);
end;

И ловить собственно где лог прервется, на каком операторе.

[Человек_Борща]

далее кидаю прогу на windows 7 x64, и она тупо зависает при нажатии на кнопку.

Уважаемый, пихайте код в поток, и не будет тормозов.
Когда клиент ждет ответа, он "усыпляет" поток в котором находится.

Можете Application.ProcessMessages поставить, программа затупит только при ожидании Timeout клиентом от сервера. Но в потоке это будет лучше и без тормозов.

[Tip.the.besT]

Тут штука в том, что потом запускается поток, а точнее несколько, и туда уже передаются куки. Дело даже не в том, просто у меня всё работает стабильно, ну есть 1 секунду форма подвисает, а потом отпускает её, а на других ПК просто виснет.

Щас буду мучить лог. Ещё попробую в цикл добавить processmessages. Если просто зацикливается, то подвисание должно прекратиться.

[Tip.the.besT]

Выяснил в чём проблема. Не проходят https запросы и прога зацикливается. ssl_openssl в uses прописан, и у меня всё работает, значит не добавляется в exe. Кто сталкивался с такой проблемой в синапсе?