ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
31.07.2009, 10:31
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Вообще эти настройки делаются сразу при открытии сесии
InternetOpen('BROWSER ID', INTERNET_OPEN_TYPE_PROXY, 'host  ort', nil, 0);
INTERNET_OPEN_TYPE_DIRECT – обрабатывает все имена хостов локально.
INTERNET_OPEN_TYPE_PRECONFIG – берет установки из реестра.
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY - берет установки из реестра и предотвращает запуск Jscript или Internet Setup (INS) файлов.
INTERNET_OPEN_TYPE_PROXY – использование прокси-сервера. В случае неудачи использует
INTERNET_OPEN_TYPE_DIRECT. |
|
|
31.07.2009, 11:05
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Использую компонент: IdHTTP Для передачи POST запроса
При ошибки 404 появляется масага с текстом об 404 ошибки и завершение обработки кода (Не выход из программы), как монжно сделать чтобы при 404 ошибки выполнялись определенные действия из обработчика?
Последний раз редактировалось НTL; 31.07.2009 в 11:18..
|
|
|
|
31.07.2009, 11:59
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от НTL
Использую компонент: IdHTTP Для передачи POST запроса
При ошибки 404 появляется масага с текстом об 404 ошибки и завершение обработки кода (Не выход из программы), как монжно сделать чтобы при 404 ошибки выполнялись определенные действия из обработчика?
try
<- POST-запрос
except
<- действия при ошибке
end;
|
|
|
|
31.07.2009, 12:10
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от ZdezBilYa
try
<- POST-запрос
except
<- действия при ошибке
end;
Это работает, но масага все равно выскакивает
|
|
|
|
31.07.2009, 14:19
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
Если прога запускается под отладчиком (или из IDE делфового ), то полюбому будет выскакивать(потому как отладчик ловит эксепшены в первую очередь)
Ты запускай отдельно прогу лучше. Или если в отладчике, то просто продолжай выполнение
|
|
|
|
31.07.2009, 15:02
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от slesh
Если прога запускается под отладчиком (или из IDE делфового ), то полюбому будет выскакивать(потому как отладчик ловит эксепшены в первую очередь)
Ты запускай отдельно прогу лучше. Или если в отладчике, то просто продолжай выполнение
Я это знаю, и говорил я про уже скомпилированную прогу
|
|
|
|
31.07.2009, 17:17
|
|
Постоянный
Регистрация: 12.07.2006
Сообщений: 327
Провел на форуме:
1654818
Репутация:
117
|
|
НTL
дак значит в компоненте эта месага
|
|
|
|
31.07.2009, 17:55
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534
Репутация:
2731
|
|
Прочитай синтаксис try ... except. В инди ексепшн вроде EIdHTTPProtocolException
|
|
|
|
31.07.2009, 20:27
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от mailbrush
Прочитай синтаксис try ... except. В инди ексепшн вроде EIdHTTPProtocolException
Не помогло, хотя я вроде убрал все строчки об масаги (С помощью "//")
|
|
|
|
31.07.2009, 22:12
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
Получаю скрин активного окна таким образом:
procedure CaptureActiveWindow(_Bimap: TBitMap);
var
Im: TCanvas;
_scRect, _winRect: TRect;
hw: THandle;
begin
Im := TCanvas.Create;
Im.Handle := GetWindowDC(GetDesktopWindow);
hw := GetForeGroundWindow;
if hw <> 0 then
GetWindowRect(hw, _winRect);
try
_scRect := Rect(0, 0, _winRect.Right - _winRect.Left, _winRect.Bottom - _winRect.Top);
_Bimap.Width :=_winRect.Right - _winRect.Left;
_Bimap.Height := _winRect.Bottom -_winRect.Top;
_Bimap.Canvas.CopyRect(_scRect, Im, _winRect);
finally
ReleaseDC(0, Im.Handle);
Im.Free;
end;
end;
//заюзаем
procedure TForm1.Button1Click(Sender: TObject);
var
_Bmp:TBitmap;
begin
Sleep(500);
_Bmp:=TBitmap.Create;
CaptureActiveWindow(_Bmp);
_Bmp.SaveToFile('c:\pic.bmp');
_Bmp.Free;
end;
А как получить скрин конкретного элемента этого активного окна?
Допустим координаты мне известны, и размер элемента тоже (координаты размещения элемента именно на форме):
Position: 225, 132
Size: 102, 41
Последний раз редактировалось ex3me; 31.07.2009 в 22:17..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
