ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
30.07.2009, 03:38
|
|
Banned
Регистрация: 21.12.2008
Сообщений: 413
Провел на форуме:
4991305
Репутация:
352
|
|
Сообщение от ZdezBilYa
Не найдены свойства компонент. Версии другие?
мм... другие версии компонента? Или не может найти такие компоненты?
|
|
|
30.07.2009, 03:44
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от Tombik
мм... другие версии компонента? Или не может найти такие компоненты?
другие версии компонент. возможно изменились названия свойств и т.д.
|
|
|
|
30.07.2009, 10:59
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Nightmarе Код под загрузке бинарника в буфер - это просто ужас.
1) Читает по 1 байту.
2) EOF - это эля текстовых файлов.
более правильнее былобы
такая последовательность функций
CreateFile (... GENERIC_READ ....)
size := GetFileSize(...)
setlength(buf, size);
ReadFile(... @buf[1], size, ....)
CloseFile();
т.е. ты открываешь файл на чтение. Получаешь его размер.
Под этот размер расширяешь строку, и сразу весь файл считываешь в неё.
|
|
|
|
30.07.2009, 11:14
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
Сообщение от Vlad3d
подскажите что за ошибки
Ты не установил компоненты.
1) Качаешь отсюда http://www.raize.com/DevTools/RzComps/RC5Trial.zip
2) Ставишь все по дефолту
3) Открываешь Delphi
4) Component -> Install Packages, Кнопка Add
5) Выбираешь C:\Program Files\Raize\RC5\Bin\RaizeComponentsTrialVcl_Design 70.bpl
6) Жмешь ОК, компоненты добавляются, радуешься жизни
|
|
|
|
30.07.2009, 18:14
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534
Репутация:
2731
|
|
//решено 
Последний раз редактировалось mailbrush; 30.07.2009 в 18:19..
|
|
|
|
30.07.2009, 18:18
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
106
|
|
Ты не установил компоненты.
1) Качаешь отсюда http://www.raize.com/DevTools/RzComps/RC5Trial.zip
2) Ставишь все по дефолту
3) Открываешь Delphi
4) Component -> Install Packages, Кнопка Add
5) Выбираешь C:\Program Files\Raize\RC5\Bin\RaizeComponentsTrialVcl_Design 70.bpl
6) Жмешь ОК, компоненты добавляются, радуешься жизни
хммм
|
|
|
|
30.07.2009, 21:47
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
по-моему, сообщает, что RaizeComponentsVd70 уже установлен (и возникает конфликт)
попробуй удалить установленную версию (удалить все пути и файлы), а потом установить эту
|
|
|
|
31.07.2009, 00:24
|
|
Участник форума
Регистрация: 18.01.2008
Сообщений: 158
Провел на форуме:
2441184
Репутация:
106
|
|
по-моему, сообщает, что RaizeComponentsVd70 уже установлен (и возникает конфликт)
попробуй удалить установленную версию (удалить все пути и файлы), а потом установить эту
пробовал почему то опять появляются все те же 5 ошибок, что я выше выкладывал
|
|
|
|
31.07.2009, 02:42
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
По поводу WinInet, если в параметрах прокси сервера в Internet Explorer находится невалидный прокси, то соответственно приложение на делфи через WinInet так-же не работает.
Можно ли это вообще как то исправить? чтобы не юзались настройки прокси в IE ?
Если да, то что тут подправить надо?
Код:
hOpenHandle := InternetOpen(nil, 0, nil, nil, 0);
if hOpenHandle <> nil then
begin
hConnectHandle := InternetConnect(hOpenHandle, szHost,80,nil,nil,3,0,0);
if hConnectHandle <> nil then
begin
hResourceHandle := HttpOpenRequest(hConnectHandle,'POST',szPath,nil,nil,nil,INTERNET_FLAG_KEEP_CONNECTION,0);
if hResourceHandle <> nil then
begin
HttpSendRequest(hResourceHandle,'Content-Type: application/x-www-form-urlencoded',47,szData,lstrlen(szData));
|
|
|
|
31.07.2009, 07:27
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
Код:
var
proxy_info: PInternetProxyInfo;
begin
New(proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_DIRECT;
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info,
SizeOf(Internet_Proxy_Info), 0);
//здесь идет твой код
Dispose(proxy_info);
end;
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
