Здравствуйте ! Delphi6, Windows 7 (64). Через ShellExecute вызываю форму Oracle. Есть ли возможность при вызове подменить заголовок окна такой формы ? ...

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

Здравствуйте Намедни решил испробовать такое шаманство:

code:

procedure WriteType(p:pointer);
begin
  writeln(pInteger(p)^);
  inc(pInteger(p));
  writeln(pAnsiString(p)^);
end;

type
  TMy=record
    i:integer;
    s:AnsiString;
  end;

var f:TMy;
begin
  f.i:=22227777;
  f.s:='abcdefgh';
  WriteType(@f);
  readln;
end.

У меня возник вопрос, можно ли как-то передать структуру Type, чтобы принимающая процедура сама раскладывала Pointer на поля согласно структ ...

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

Здравствуйте! Помогите решить задачу по ловле события закрытия MDIChild окна. Пробовал такой вариант:

code:

procedure TForm1.wmParentNotify(var msg: TMessage); //где Form1.FormStyle = fsMDIForm
begin
  inherited;
  //Например так
  If TWMParentNotify(Msg).Event = WM_DESTROY then
  begin
    showMessage('form closed!');
    msg.result := 0;
  end;
  //Или так
  if msg.WParamLo = WM_DESTROY then
  begin
    showMessage('form closed!');
    msg.result := 0;
  end;
end;

Ло ...

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

Добрый день. Буду благодарен, если кто нибудь подскажет по TIdSMTP-клиенту. Пытаюсь сделать приложение для отправки почты по smtp локально внутри организации. Вопроса два: 1. Если я не указываю в явном виде полный адрес своего хоста(закоментированная строка), то не могу соединиться с почтовым сервером, получаю: 5.5.2 : Helo command rejected: need fully-qualified hostname. Я конечно могу вручную задать этот параметр, только почему вообще это нужно делать? Возможно, есть настройка ко ...

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

Здравствуйте жители королевсва! Делаю службу, которая должна делать ScrrnShot экрана, каждую секунду. ScreenShot получается только экрана пользователя SYSTEM. А необходимо, чтобы снимок экрана был активного пользователя и даже окна приветствия, когда не залогинен ни один пользователь. [Code] unit main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs, Vcl.ExtCtrls; type TScreenShoteService = ...

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

Здравствуйте. Имеется iPhone 5, WiFi, компютер под Windows 7 (в одной сети WiFi с iPhone), Delphi 7 или XE7. Задача написать прогу, которая будет рассылать смс так, как если бы они рассылались с самого iPhone, но только с компа, массово и легально за деньги, ели того стоит смс, отправленная с этого iPhone. ...

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

Здравствуйте. Имеется StringList адресов файлов. Необходимо отобразить эти файлы в ShellListView. ...

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

Всем привет... Много лет сталкиваюсь с проблемой и каждый раз решаю ее с извратом... Имхо... Есть запрос выбора чего-то с фильтром по значению параметра, но нужно и "выбрать все". Казалось бы вот решение SELECT * FROM Table1 WHERE isnull(:Param1,Field1) = Field1 Но стоит захотеть "выбрать все", т.е ADOQuery1.Parameters.ParamByName('Param1').Value := null; как тут же получаем эксепшн с "Неправильно определен объект Parameter. Предоставлены несогласованные или неполные сведения" Как же в T ...

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

Приветствую, уважаемые. Может кто-нибудь подсказать. Использую для отчетности Кристалл. Когда отчет просматривается в Кристалле, слева можно вывести группировку. А вот когда отчет просматривается в моей программе с помощью компонента Crpe, групп нет, только непосредственно сам отчет. Можно ли этом случае показывать группы? Спасибо. ...

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

Здравствуйте. У меня есть массив из 36 целых чисел, по порядку от 1 до 36. Из них я произвольно выбираю 5 чисел, например: 3, 15, 18, 23, 34 или какие-то другие, одно условие цифры не должны быть равны между собой. 1. Как узнать порядковый номер этой комбинации? 2. И соответственно по порядковому номеру комбинацию цифр? Всего вариантов 376992, первый №1 по порядку идёт 1, 2, 3, 4, 5, а последний №376992 это 32, 33, 34, 35, 36. Количество комбинаций я рассчитал: [Code](32 * 33 * 34 * 35 * 3 ...

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

Здравствуйте, уважаемые жители! Вопрос, видимо относится к компилятору Delphi. Пользую Delphi XE5 (ранее без проблем). Сегодня столкнулся с неожиданной проблемой ошибки доступа к памяти. Немного кода с ошибкой: [Code] function AssimMathData(var AItems: TElItems; const aID: TGUID; Diam: Byte; AWeight: Double; ACount: Double): Integer; function Add_AItems: Integer; var I: Integer; b: boolean; begin SetLength(AItems, Length(AItems) + 1); Result := Lengt ...

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

Делаю компонент-кнопку от TCustomControl. Её канвас создаю так в Create компонента:

code:
FCanvas: TCanvas;
...
FCanvas := TControlCanvas.Create;
TControlCanvas( FCanvas ).Control := Self;

Ну и рисую на нём:

code:
FCanvas.Draw( 0, 0, _BitMap );

Всё отлично работает до тех пор, пока родитель кнопки или его родитель или ещё выше по иерархии не сделает:

code:
Parent := nil;

И если после этого что-то вызовет перерисовку кнопки, к примеру смена одного из её свойств, то ...

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

СУБД Postgresql 9.3, в грид DBGrridEh в поле пишу дробное число с двумя знаками после запятой и не сохраняется значение. Дробная часть отбрасывается. Такая же ситуация с любым другим компонентом. На других компьютерах работает, а на двух компах не работает, на одном Win7 на другом 8(СУБД и Клиент на один ПК устанавливается, не по сети подключение к БД) Пробовал Сделать в PGAdmin команду insert дробное значение сохраняется . Сколько лет уже устанавливаю программу всегда все работало, а вот н ...

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

В этой области я начинающий, поэтому прошу сильно не пинать. В Delphi 10.2 (10.1) требуется написать приложение под Android. Запускаю входящий в комплект AVD Manager. Создаю виртуальное устройство под версию API 17. Запускаю. Появляется окно эмулятора. Выбираю его в качестве платформы в Delphi. Приложение компилируется и устанавливается на эмулятор без ошибок. А вот при попытке его запуска наблюдаю или черный экран или сообщение "К сожалению приложение остановлено". При смене платформы ...

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

Здравствуйте, уважаемые форумчане! Помогите пожалуйста с решением следующей проблемы. На своём компьютере разработал программу для работы с базой данных Firebird. Всё работает замечательно. При переносе программы на другой компьютер выполнял следующие действия: 1) Скопировал с флешки папку с exe-шником и папку с файлом базы данных; 2) Установил СУБД Firebird 3.0 (служба запустилась); 3) Запустил exe-шник; При выполнении последнего пункта получил сообщение об ошибке "unavailable database". ...

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

В Делфи 7 поставил на форме idhttp+ sshandler, скачал библиотеки openssl. Теперь, если я коннекчусь к Яндексу, он нормально (htmlsource) сохраняется, при попытке зайти на рабочий украинский https://olx.ua - error connecting with ssl. Причем не возникает ошибка сервера - 301,302 или еще какая, я это перехватываю. ...

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

Прошу помочь. Не могу понять, почему когда код полностью выполняется и результаты отображаются на экране, программа ещё минут пять висит и не реагирует на действия пользователя. Задача простая, соединится с 1С:Предприятием 8.3 конфигурация "Зарплата и управление персоналом" и считать всех сотрудников принятых на работу в течении текущей недели. Делаю кратко так: //Параметры подключения к Файловой базе данных InitLine:='File="'+Com_1C_BD_File+'";Usr="'+Com_1C_Login+'";Pwd="'+Com_1C_Passwor ...

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

FireMonkey + Linux. Есть такая небольшая статья: https://community.embarcadero.com/blogs/entry/firemonkey-on-linux Сделал всё по ней. Delphi Tokyo + VMWare + Ubuntu + PAServer. В Library Path добавил: C:\FmxLinux\Source Но когда пытаюсь скомпилировать пишет: [Warning Warning] Local file "\Redist\libfmux.so" not found. Skipping deployment. Хотя после этого почему-то success. А в терминале Linux в это время появляется: Runtime error 217 at 0000000000664245 Куда я только не кидал этот libfmu ...

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

Здравствуйте, Создаю объект от TObject, визуальное отображение объекта скажем квадрат, который прорисовывается на канве формы. Каким образом мне написать код для его перемещении по форме с помощью мышки? Вопрос точнее как перемещать не проблема, проблема как связать этот объект с мышкой. Спасибо. ...

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

Здравствуйте. Нужно создать новое поле в таблице базы MySQL если оно не существует. Для этого написал такой блок:

code:
dm1.Q_tmp.Active:=false;dm1.Q_tmp.SQL.Clear;
dm1.Q_tmp.SQL.Add('select taxkod_branch from firms limit 1');
try
  dm1.Q_tmp.Open;
except
  dm1.Q_tmp.Active:=false;dm1.Q_tmp.SQL.Clear;
  dm1.Q_tmp.SQL.Add('ALTER TABLE `firms` ADD `taxkod_branch` VARCHAR(10) NULL AFTER `taxkod`');
  dm1.Q_tmp.Open;
end; 

Q_tmp это TQuery. При запуске скомпилированной проги выскакив ...

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