УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 403 из 677

403

Опции темы

Поиск в этой теме

Опции просмотра

#4021

01.08.2009, 08:00

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

Провел на форуме:
1892597

Репутация: 836

Отправить сообщение для W!z@rD с помощью ICQ

Цитата:

Сообщение от ex3me

А как получить скрин конкретного элемента этого активного окна?
Допустим координаты мне известны, и размер элемента тоже (координаты размещения элемента именно на форме):

Посмотри API PrintWindow

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

#4022

01.08.2009, 10:34

mailbrush

Познавший АНТИЧАТ

Регистрация: 24.06.2008

Сообщений: 1,996

Провел на форуме:
6075534

Репутация: 2731

Отправить сообщение для mailbrush с помощью ICQ

НTL,

Код:

try
body:=IdHTTP1.Get('http://site.com/script.php');
except
on EIdHTTPProtocolException do
	begin
		//Твой код
	end;
end;

#4023

01.08.2009, 12:12

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Отправить сообщение для НTL с помощью ICQ

Цитата:

Сообщение от mailbrush

НTL,

Код:

try
body:=IdHTTP1.Get('http://site.com/script.php');
except
on EIdHTTPProtocolException do
	begin
		//Твой код
	end;
end;

Работает но:

Все равно появляется, чтобы ево убрать надо в IdHTTP строчки убрать, но какие?

#4024

01.08.2009, 18:46

mailbrush

Познавший АНТИЧАТ

Регистрация: 24.06.2008

Сообщений: 1,996

Провел на форуме:
6075534

Репутация: 2731

Закомментируй в IdHTTP.pas строчку, которая выделяется в дельфи при эксепшене.

Код:

raise что-то там...

#4025

01.08.2009, 19:03

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Цитата:

Сообщение от mailbrush

Закомментируй в IdHTTP.pas строчку, которая выделяется в дельфи при эксепшене.

Код:

raise что-то там...

Знаеш скока там таких?

Давай так, если у тебя не выдает такую ошибку то ты мне скинешь свой idhttp.pas

#4026

01.08.2009, 19:52

[n]-c0der

Участник форума

Регистрация: 03.02.2009

Сообщений: 104

Провел на форуме:
270228

Репутация: 70

Вы идиоты!(с) Dr. House
Нихрена там ниче коментить не надо!, Всего лишь надо try,except и все, ошибка вылетает в среде делфи(под отладчиком), просто скомпилируй запусти и не будет вылетать эксепшена...

#4027

01.08.2009, 19:59

mailbrush

Познавший АНТИЧАТ

Регистрация: 24.06.2008

Сообщений: 1,996

Провел на форуме:
6075534

Репутация: 2731

[n]-c0der, я ему это говорил, но, видать, что-то не получается у него.

Цитата:

Знаеш скока там таких?

Когда в дельфи открываешь прогу, отсылаешь запрос, дельфя при эксепшене октрывает IdHTTP.pas и выделяет строчку, которая генерит ошибку, вот ты и закомментируй её.

Цитата:

Давай так, если у тебя не выдает такую ошибку то ты мне скинешь свой idhttp.pas

У меня не выдает, использую метод, выложенный мною выше. Версии инди у нас могут быть разные.

#4028

01.08.2009, 20:07

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

Цитата:

Сообщение от [n]-c0der

Думаеш самый умный? Читай тему

Цитата:

У меня выделяет строчке в Unit1 которая отсылает ( RichEdit1.Lines.Text := UTF8ToAnsi(IdHTTP1.Get(Хост))

Цитата:

У меня не выдает, использую метод, выложенный мною выше. Версии инди у нас могут быть разные.

В этом и дело что версии разные... вот я и заиспользую IdHTTP от другой версии... А еще лучше если скинеш всю папку Indy...

#4029

01.08.2009, 22:20

zeppe1in

Постоянный

Регистрация: 12.07.2006

Сообщений: 327

Провел на форуме:
1654818

Репутация: 117

мне нужно использовать в качестве RandSeed строку.
тоесть надо какойнибудь алгоритм переделывания строки в Longint, ну и что бы совпадений небыло.
есть идеи?

#4030

01.08.2009, 22:42

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

как вариант -

Код:

var
  s:string
  d:dword;
begin
  d:= dword(pointer(@s[1])^);
end;

т.е. цифровое представление первых 4- байт как 1 двойного слова.
диапазон начала может быть от 1 до length(s)-3
Ну или про суммируй все такие 4-ки байт.