[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

я все правильно делаю? (ПОСТ через прокси)

Code:

procedure TSendThread.Execute;
var
  idHttp:TIdHTTP;
  god:boolean;
begin
  god:=true;
  idHttp:=TIdHTTP.Create(nil);
  try
  with idHttp do
  begin
    ProxyParams.ProxyPort     :=  Prox.FProxy.Port;
    ProxyParams.ProxyServer   :=  Prox.FProxy.Server;
    ProxyParams.ProxyUsername :=  Prox.FProxy.UserName;
    ProxyParams.ProxyPassword :=  Prox.FProxy.Password;
    ConnectTimeout            :=  Prox.TimeOut;
    ReadTimeout               :=  Prox.TimeOut;

    try Post(Prox.URL,Prox.PostData) except
      god:=false;
    end;
  end;
  finally
    idHttp.free;
    if Assigned(FOnDone) then
      Synchronize(FOnDone(self,god,prox.index));
  end;
end;

 

эмм.. нужен код по перебору
acc: pass
acc1: pass1
acc2: pass2 и т.д (в принципе сам код есть но только он перебирает не правильно)

acc: pass
acc: pass1
acc: pass2 и т.д подскажите что не так

 

Дык ты код покажи, мы и скажем что неправильно

 

что за фигня? посылаю ПОСТ запрос в однопоточни прозе и все ок
переписал прогу с нуля добавил багатопотчнисть и еще кучу разных приколы теперевси запросы являются не удачными ... (Включается исключительная ситуация Socket Error)
код см. выше

 

Это ты метко опечатался

 

а вот как настроить обновление программы на делфи?я перелазил весь инет и ненашёл ничего!

 

Видимо не весь..
тык
Вполне доступно имхо.

 

пасибыы пойду искать ещё!!

 

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

Code:

function TDwnlFromFineProxy.GetProxy: TAProxy;
var
  Param:TCutHTMLParam;
begin
  with Param do
  begin
    Start:='<p><strong>Анонимные прокси:</strong>';
    Step2:='<br />';
    step3:=':';
    step4:='<br />';
    endstr:='<a href="http://safe-inet.com/partner/traf.php?ref=10">';
  end;
  with TIdHTTP.Create(nil) do
  Result:=ConvertHTMLProxy(Get('http://fineproxy.ru/'),Param);
end;

 

Вроде нормально. Только TIdHTTP не забывай уничтожать потом

 

я вроде нашёл чтото для обновление программы но у меня не работает(
вот этот код нужно ж делать в dll?

Code:

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;

а вот это в саму программу уже вставлять ?

Code:

var FileOnNet, LocalFileName: string
begin
FileOnNet:='http://www.codenet.ru/progr/delphi/';
LocalFileName:='MyFile.zip';


if GetInetFile(FileOnNet,LocalFileName)=True then
ShowMessage('Download successful')
else
ShowMessage('Error in file download')

end;

 

упс!)блин я тупанул!)я нетак коечто написал!извиняюсЬ!

 

Delphi найти копировать имя переименовать...

Здрасте изъясню ситуацию столкнулся с тем что надо:
1) Найти Подключение по локальной сети
2) Скопировать имя подключения по локальной сети (обычно так и называется "Подключение по локальной сети")
3) Переименовать подключение по локальной сети
4) Вернуть старое имя подключения по локальной сети

Как всё это делается программно ?

 

как извлечь и запустить стандартною анимацию винды? (Нужна анимация 'размишления' ну типа загрузка)

 

Code:

Cursor:=crHourGlass;
try
  //Долгое действие
finally
  Cursor:=crDefault
end;

Оно?

 

не совсем но и это пригодится)

в винды есть анимации (например копирование файлов) ... их я хотел достать (давным давно видел пример)

 

1. у меня на форме куча комонентив ... можно предоставить сразу всем такой курсор?

2. как быстро проверить работоспособность прокси?

3. как быстро определить в какие стране прокси сервер?

4. как быстро определить уровень анонимности прокси?

 

1)Нужно сделать цикл по все компонентам. Component[№]
2,3,4) Онлайн сервисы же

 

На вкладке Additional есть компонент TAnimate, у него есть свойство CommonAVI, попробуй

 

как узнать версию проги внутри прогі? (чтоби потом вивести куда нибуть)