Здравствуйте всем. Проблема не понятная, на одних работает, на других нет, хотя ОС одна и та же. Суть проблеммы - привязка CPU_ID к строке на своем аккаунте на сайте пастебин... Вот вырезки: Модуль с функциями проверки строки на сайте: /////////////////////////////////////////////// unit uSiteBinding; (* Date : 26.01.2016 Author: HEX0x29A *) interface uses Windows; function IsRegistered(const lpPasteId: LPCSTR; const lpLicenseString: LPCSTR = nil): BOOL; implementation ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83173

TActionList в ActiveX-форме (OCX) В АктивИксе не работает у TactionList событие OnUpdate (не вызывается самостоятельно). Кроме таймера есть варианты его оживить? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83172

драсте мне нужно выполнить определеную операцию после определеного времени простоя я это реализовал вот так [EM]const tp = 3 {время простоя} var tda : DWord; liInfo: TLastInputInfo; function Ida : DWord; var a : integer; begin a := (tda - liInfo.dwTime) DIV 60000; Result := a; end; procedure Form.Timer1Timer(Sender: TObject); var t : DWord; begin tda := GetTickCount; liInfo.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(liInfo); t := Ida; if t = tp then {дейст ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83171

Здравствуйте, господа форумчане! Мой вопрос почему-то удалили, но я спрошу еще раз. Если: я создаю запись Код: type some_type=record x:integer; y:integer; и тип указателя на запись Код: type Psome_type=^some_type; некоторую переменную Код: var arr:Psome_type; i:integer; И создаю массив Код: GetMem(arr, 10*sizeof(some_type)); Как мне получить значение, находящееся по адресу arr[ i ] в Turbo Pascal 7.0, кроме способа с инкрементом указателя до места н ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83170

Камрады, каким образом можно открыть в среде Дельфи файл проекта *.dpr как обычный текстовый файл для редактирования его текста ? Необходимо внести в него изменения, но когда открываю его по "File" -> "Open ...", то просто передергивается весь проект, а файл dpr в окно не выводится. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83166

Добрый день! Проблемы с установкой Embarcadero XE7. Ставил под 32-битными Windows XP SP3, Windows 7. Проблем не было. Попытался установить под 64-битной Windows 7 - при запуске установщика получил сообщение " is not valid integer value. Само окно установщика прорисовывается не до конца. Никто не сталкивался с таким? И как правильно установить? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83169

Доброго всем дня. Пришлось влезть в обмен данными по GPRS и тут же зависнуть на простой вроде бы вещи. Установить связь уже умею. В ответ после установления связи приходит пакет: 7E FF 7D 23 C0 21 7D 21 7D 23 7D 20 7D 39 7D 22 7D 26 7D 20 7D 2A 7D 20 7D 20 7D 27 7D 22 7D 28 7D 22 7D 25 7D 26 D4 A9 C7 C1 7D 23 7D 25 C2 23 7D 25 71 6B 7E Это пакет протокола PPP. Разбираем его: Флаг - 7E Адрес - FF Управление - 7D (хотя по документации должно быть 03) Протокол - 23 C0 (если не ошибаюсь, это ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83168

Здравствуйте! СУБД MS ACCESS, на форме полный набор: ADOConnection; ADOTable; DataSource; DBGrid; DBNavigator. Как правильно внести запрет на ввод дубликатов записей в БД? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83167

Здравствуйте. Есть сложный SQL запрос (БД PARADOX), который отображается в DBGriEh. На основании этого запроса нужно сделать ещё один вида:

code:
SELECT Field1, SUM(Field2)
FROM ???
GROUP BY Field1

Хотя тут суть не в самом втором запросе, а в принципе реализации данной задачи. Как я понял в такой ситуации могут помочь Lookup поля, но я никак не пойму, как ими пользоваться. Либо, вроде как, ещё можно это сделать с помощью TSQLDataDriverEh, но тоже у меня в ходе экспериментов ничего не ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83123

Добрые люди - помогите, кто как может! Поциэнт = Lazarus 1.4 Возможно ли выключить так называемое автопродолжение кода, желательно "одним движением" (каким-нибудь "флажком")?! Чтобы, например, написав текст

code:
procedure SomeThing;

и нажав Enter, я получил бы перевод каретки, а не текст

code:
procedure SomeThing;
begin
  
end;

Пусть у меня какое-то ущемление в мозгах, пусть я не понимаю собственную выгоду - но мне этого не нужно! ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83126

Подскажите где можно скачать документацию для easycad ... ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83125

Всем привет! Есть ли возможность с помощью делфи перехватить и отменить операцию удаления файла с жесткого диска? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83124

Не работает MoveWindow и подобные функции. Причём у меня работает, а запускаю на другом компьютере, не работает. Задача заключается в перемещении окна чужой программы. Handle её знаю 100%. Вот такой код:

code:
if not MoveWindow(hWnd,0,0,100,100,True) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
  end;

Выдаёт "Отказано в доступе". Почему же тогда на моём компьютере работает? Хотя на втором даже запускал от имени Администратора. Куда копать? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83119

Добрый день, Королевство. Возникла небольшая проблемка с фастрепортом. Хочу построить в нем точечную диаграмму. Добавляю объект TfrxChartView, создаю серию "Series-point" - точки, то бишь. Далее вбиваю фиксированные данные - скажем, такие Label = 1;2;3 Y = 3;15;10 Далее генерирую отчет - и обнаруживаю, что последней точки (та, которая 10) - в построенной диаграмме нет. О_о То есть, по факту, она там есть, лэйбл рядом с тем местом, где должна быть точка, исправно отображается. Но вот ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83118

Здравствуйте. Есть такой код распаковки архива, который использует стандартную в Delphi 7 библиотеку ZLib: [Code]procedure Decompress; var dest,s : String; decompr : TDecompressionStream; infile, outfile : TFilestream; i,l,c : Integer; begin dest := IncludeTrailingPathDelimiter(DestDirectory_); infile := TFileStream.Create(Filename_,fmOpenRead); try infile.Read(c,SizeOf(c)); max:=c; for i := 1 to c do begin infile.Read(l,SizeOf(l)); SetLength(s,l) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83114

Здравствуйте не могу программу приучить переключать прокси из списка: [Code]procedure TForm1.Button10Click(Sender: TObject); var url,k,prox:integer; http:thttpsend; str,ip,port:string; begin HTTP:=THTTPSend.Create; for prox:=0 to memo8.Lines.Count-1 do begin HTTP:=THTTPSend.Create; IP:=Copy(memo8.lines[prox], 1, Pos(':',memo8.lines[prox])-1); PORT:=Copy(memo8.lines[prox], Pos(':', memo8.lines[prox])+1, Length(memo8.lines[prox])); http.ProxyHost:=IP; http.P ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83113

Добрый день, господа! Вопрос по RTTI. Есть объявление в классе:

code:

procedure MethodXXX(....); overload;
procedure MethodXXX(другие параметры); overload;

Мотоды не виртуальные, в public. Потом я перебираю их:

code:
 
RTTI_ClassInfo := RTTI_Context.GetType(CurClass);
for aMethod in RTTI_ClassInfo.GetDeclaredMethods do
...

Встречаю оба эти метода, работаю с их описаниями, делаю всякие действия, а у них VirtualIndex у обоих = -12 (одно и то же число). Смотрю доку ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83112

Уважаемые коллеги, хочу задать Вам непростой вопрос, ответа на который так и не нашлось по поиску. Суть в следующем: имеется Bitmap с pf32bit, то есть с каналом прозрачности. Как его нарисовать на другом Canvas с прозрачностью давно известно, с помощью функции AlphaBlend. Но (!) функция рисует строго по целым координатам, как быть если нужно отрисовать Bitmap в позиции к примеру X=2.624 Y=5.375? Использование округления до целых значений не подходит. Скорее всего существует алгоритм пересчёт ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83109

Добрый вечер! Возникла проблемка с DBGdir в режиме MultiSelect с Bookmark-ами с TJvMemoryData. После сортировки перестаёт работать MultiSelect После сортировки Букмарки у TJvMemoryData остаются связанными с Rec.ID (уникальный ид у записи в памяти)

code:
 
...
  with PMemBookmarkInfo(Buffer + FBookmarkOfs)^ do
  begin
    BookmarkData := Rec.ID;
    BookmarkFlag := bfCurrent;
  end;
...

a DBGrid хочет получать их отсортированными (т.е. по аналогии AbsoluteIndex vs. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83108

Доброго времени суток Вопрос о TListSortCompare из TList. Смотрел исходники в classes.pas но до конца не понял механизм работы выносной процедуры. Хотелось бы в своем классе организовать подключаемые процедуры во время исполнения программы. Например имеется цикл вызывающий функцию вычисления в которой используется умножение. Но при определенных числах умножение можно заменить сдвигом. Эти переменные с числами задаются один раз при инициализации программе. В саму функцию вычисления писать у ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83107