» Вопросы по Delphi (все версии) - часть 3

GreatOne
добавлю, что книга Борри Х. "Firebird: руководство разработчика баз данных" имеется и в электронном виде!
#

SharedNoob

Цитата:

Есть ли хороший FAQ по шифрованию пакетов в Delphi7 ?

насчет FAQ'а - не скажу, не уверен, но задача полностью аналогичная твоей решена в kbmMW - библиотеке для разработки многоуровненых приложений, ориентированных на базы данных. Indy в kbmMW - один из возможных транспортов, kbmMW обеспечивает шифрование через подключение одной из двух библиотек: платной StreamSec II и бесплатной DCPCrypt 2. Так что совет - поучиться у гуру по имени Ким Бо Мадсен (разработчик kbmMW)

Figaro2000
Спасибо за подсказку, спомощью компонентов DCPCrypt зашифровал и расшифровал пакеты.
Но есть еще кое что. Есть читы которые работают через само приложение клиента игры. Можно ли как нибуть запретить к нему доступ?
Есть файл main.exe , он и есть клиент. После запуска появляется в процессах, и какимто образом через него пускают пакеты читы. (это по наслышке) Реально ли это. Если реально то как это присечь ?

SharedNoob
то есть? есть твой клиент, который через порт получает TCPIP-пакеты, расшифровывает.. и, собственно, что дальше? кто-то еще (этот твой чит) сел на тот же порт и шлет через него пакеты?
в таком случае надо в Indy поглубже покопаться - есть ли там подобные проверки...

Скажите способ вызовы системого диалога открытия файлов. Мне надо чтобы диалог появлялся по центру экрана.
Дайте пожалуйста примерчик.

Figaro2000
нашел собственно один из этих самых читов.
Принцип его работы, запустил, нажал кнопку логировать, совершил пару действий в игре нажал стоп логирыванию и потом нажал послать. Сделал микро приложение где отслеживаю что происходит с пакетами. То есть все что смог пока найти в инди из свойств пакета вывожу в Memo по каждому пакету. когда жму на чите послать, вижу десятки-сотни ... одинаковых пакетов, причем идентичных тем которые посылает пакет.

Добавлено:
В смысле клиент игры.

Добавлено:
Система сама по себе таковая.
Есть локальная сеть, допустим IP адрес компьютера игрока 192.168.0.2 , а ip сервера игры 192.168.0.1.
Далее так.
Запускается клиент игры, пакеты которого я направляю на клиент античита то есть на 192.168.0.2:6661, Клиент античита перенаправляет пакеты на сервер античита 192.168.0.1:7771, Сервер античита проверяет IP с которого присланы пакеты, если Ip разрешено(или к примеру не запрещено) подключатся к серверу игры то он перенаправляет пакеты на порт сервера игры 192.168.0.1:4444, иначе откидывает эти пакеты.

Далее я думал что чит посылает пакеты непосредственно на порт сервера, и я начал шифровать пакеты, при этом следя за пем что бы пакеты были посланны именно клиентом античита, для этого я изменял пакет и добалял к нему несколько символов, на стороне сервера античита я проверял наличие этих символов если есть то принять иначе отбросить.

Но как оказалось, чит посылает пакеты от имени запускного файла клиента игры и по тому же маршруту. Следовательно Сервер античита не может отследить чужие пакеты.

Как быть ума не приложу. Есть идеи ?

SharedNoob
честно говоря, идей нет.. да и вопрос не совсем для этой темы ..

Кто использовал/использует компонент ImageEn подскажите, что использовать для отображения и составления одной большой картинки (с "бесконечными" краями) из сотен небольших jpg-ов (256*256 пикс) - TImageEnMView или TImageEnView? Или что-то еще? Просто никогда не имел дела с графикой...

Люди добрые помогите плиз:
Есть Тemo1 в нем текст :
Memo1.Text:='Привед';

Есть DbGrid1 в котором 2 столбца :Vopros Otvet

Как сделать так чтобы производился поиск слова из массива слов Memo1в DbGrid1 в первом столбце и соответственно выводилось сообщение об ответе из второго столбца через ShowMessage

Вот допустим ищем слово из fields[1] и выводим сообщение соответствующее следующему стобцу из fields[2]....

т.е. допустим в DbGrid1 fields[1] и fields[2] содержат строки:

Привед Привет
Тесд Тест


if Pos(ADOquery1.fields[1].asstring, memo1.Text)>0 then ShowMessage(ADOquery1.fields[2].asstring);


Как сделать так чтобы в случае появления в Memo1 текста Привед из DbGrid1 выдергивалась слово соответсвующее слову Привед т.е. Привет ...

не знаю как это осуществить помогите плыз

Народ, посоветуйте пожалуйста хороший онлайн справочник по delphi, не обязательно русский. Поиск по родному хэлпу студии просто достал уже до чертиков =(

Добавлено:
OOD
Ты вроде как сам решение задачи предложил. Единственно осталось обернуть проверку в пробегание по таблице.

Код:
var
bm: Pointer;
begin
with ADOquery1 do begin
DisableControls;
bm := GetBookmark;
try
First;
while not Eof do begin
if Memo1.Lines.IndexOf(fields[1].AsString) <> -1 then
ShowMessage(fields[2].AsString);
Next;
end;
finally
GotoBookmark(bm);
FreeBookmark(bm);
EnableControls;
end;
end;
end;

Dennica

Цитата:

Народ, посоветуйте пожалуйста хороший онлайн справочник по delphi, не обязательно русский. Поиск по родному хэлпу студии просто достал уже до чертиков =(

Альтернатив хелпу, по-моему, нет. Есть коллекции code snippets (готовых решений) и статей.
Из русских самый полный на сегодняшний день http://quadro.drkb.ru
Не онлайн - устанавливается локально, не самая удобная оболочка, во многих статьях при импорте нарушено форматирование, но собран максимальный объем.

Если это не то - пиши, попробую посоветовать из англоязычных. Там правда одной ссылкой не обойдется...

Arvur
Спасибо! Посмотрю сегодняже.

Dennica
А вот еще:
http://delphiworld.narod.ru/
Великолепная штука.

Grande

Цитата:

http://delphiworld.narod.ru/

Входит в DRKB Explorer А с поиском на delphiworld по-моему не супер.

Arvur
Ставь Delphi 6/7 паралельно, там многое совпадает с существующим в студии.

Подскажите, пожалуйста, как можно автоматизировать процесс удаления лишних модулей в Uses.

drd403
Icarus:
http://www.peganza.com/products_icarus.htm

Цитата:

Icarus:
http://www.peganza.com/products_icarus.htm

Спасибо! То, что надо.

Такой вопрос - нет ли на Дельфях хороших модулей по продвинутой статистике. Научной статистике - типа кластерного и корреляционного анализа и пр.

Подскажите плиз есть ли механизм контроля шрифтов во всём приложении и где это можно почитать
грубо - чтоб в настройках пользователь задавал +/- пунктов от умолчания и приложение перерисовывалось с новыми шрифтами

Подскажите плиз функцию поиска файлов в дельфи, которая может возвращать полное имя найденного файла. А то FileSearch возвращает фигню какую-то.

GreatOne
а чем findfirst (findnext) не устраевает ?

greenpc

Примерчег подкинешь?

Добавлено:
С поиском сам разобрался. Подскажите плиз можно-ли через TQuery создать временную таблицу с данными, а после экспортировать данные в XML на лок. диск???

GreatOne
или компонентами типа
EMS Advanced Export Component Suite
или _http://main.soobcha.org/delphin/007.html

GreatOne
создать таблу можно через create table..., но, возможно тебе и не надо ее создавать, а получить выборку из другит таблиц и результаты select'a сохранить в ХМЛ ?

если, все-таки, нужно и таблу и данные, то надо смотреть какая СУБД и откуда берутся данные

GreatOne
Посмотри в сторону TClientDataSet, он может выгружать\загружвть данные из xml

У меня тут такой вопросик мож кто поможет - нада как то с помощью Delphi определить на каком диске установлена система.
Требуется определить путь к папке Common Files

Andrey13Lord
Попробуй GetSystemDirectory или GetWindowsDirectory

Andrey13Lord из jedi.jcl, но принцип понятен

Код:
const
HKLM_CURRENT_VERSION_WINDOWS = 'SOFTWARE\Microsoft\Windows\CurrentVersion';

function GetCommonFilesFolder: string;
begin
Result := RegReadStringDef(HKEY_LOCAL_MACHINE, HKLM_CURRENT_VERSION_WINDOWS,
'CommonFilesDir', '');
end;

Цитата:

Попробуй GetSystemDirectory или GetWindowsDirectory

примерчик подкинь!!!