Добрый день! Пишу программу - патч, она должна по нескольким адресам поменять ровно по одному байту. Всё хорошо, если я задаю значения этих байт в формате $FF в коде программы, но я хочу, чтобы их можно было ввести через форму, т.е. через TEdit. Не получается что-то преобразовать строку в байты... var byteArray : array[1..1] of byte; byteArray[1]:=ord(Edit1.Text[1])+ord(Edit1.Text[2]); - Делфи их просто складывает и хитрый символ на выходе... Edit2.Text:= chr(byteArray[1]); т.е. к ...

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

Здравствуйте, направьте меня в нужную сторону. Пишу простенькую типа Скаду, сам строю объекты от TObject, для просмотра и изменения свойств использую TValueListEditor, кое где выпадающий список, кое где кнопка с тремя точками для вызова какой то дополнительной формы. Для реакции на ввод значения пишу обработчик ValueListEditorValidate(), для вызова форм по кнопке с тремя точками ValueListEditorEditButtonClick. Т.е. все свойства объекта привязаны к определенным ячейкам, если добавил(убрал) ...

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

Привет всем. Долгое время время писал на D7, сейчас перехожу на D10. В своё время на D7 пробовал решить проблему управления формами кнопками панели задач, но очевидного решения не нашёл. Сейчас знакомлюсь с последней версией. Полагал, что какой-то механизм должен быть встроен, но такового не нашёл. Проблема: требуется сделать приложение с несколькими формами, каждая из которых имеет кнопку на панели задач (и, соответственно, thumbnails preview) так, чтобы при сворачивании любой из форм - прило ...

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

Здравствуйте! 1) Имеется код, который выполняет запуск exe-файла при клике на кнопку:

code:

procedure TMAIN.runClick(Sender: TObject);
begin
MAIN.Close;
ShellExecute(Application.Handle,PChar('open'),PChar('programpath\Start.exe'),nil,nil,SW_SHOW)
end;

2) Имеется код, который ищет окно другой программы и выполняет там нажатие конкретного пункта меню: [Code] procedure TMAIN.controlsClick(Sender: TObject); Var Men :HMenu; Hnd,HndDialog,HndControl,HndAsc,HndBtn :HWnd; ...

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

Всем здравствуйте! Проблема такая: надо получить содержимое документов Word в виде простого текста. Но документы необходимо загружать из памяти, а не из файлов. Вроде как это умеет делать TOleContainer. Может "из пушки по воробьям", но это работает. [Code]type TStreamHeader = record case integer of 0:( Signature:integer; DrawAspect:integer; DataSize:integer); 1:(PartRect: TSmallRect); end; const StreamSignature = $434F4442; ...

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

все привет. нашел такой пример в сети:

code:
type myproc = procedure; stdcall;

procedure Proc1;
begin
ShowMessage('Hello From Proc1');
end;

procedure TForm1.Button1Click(Sender: TObject);
var p: myproc; h: HWND;
begin
h := GetModuleHandle(nil);
p := GetProcAddress(h,'Proc1');
ShowMessage(IntToStr(h));
p; // вот он сам вызов процедуры
p := nil;
end;

Но, как я понимаю F1, GetProcAddress работает для процедур из dll. А как то же самое сделать, если моя процедура как обы ...

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

Возможно, я не мог, в общем потоке информации найти подобную, проблему, но мне нужно в Делфи 7 отловить окончание синхронизации в YandexDisk(-е). Т.е. окнчание синхонизации с компом и облаком. По видимому, нужно, использовать web-технологии, но в этом я не особо силен. Спасибо, заранее за любой вариант ответа(-ов). С уважением Виктор ...

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

Мое приложение и все его дочерние окна используют шрифт Tahoma, размером 9 пт (так лучше видно пользователям). Стандарные диалоги Delphi используют шрифт MS Sans Serif размером 8 пт. Как можно включить использование стандартными диалогами (MessageDlg, InputQuery, InputBox и т.п.) заданных шрифтов (Font.Name, Font.Size и т.п.)? И возможно ли такое вообще? Использую Delphi 6 Enterprise. Приложение работает в локальной сети на компьютерах, использующих разные ОС (Windows XP, Windows 7, Windows Ser ...

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

Помогите, я окончательно запутался. Опыт работы в Delphi небольшой... Использую DLL от китайского оборудования, необходимо подписаться на события, которые он генерирует. В .H файле функция описана так

code:
typedef void (* DECODE_NOTIFY_CALLBACK)(void *buf, DWORD DataLen);

FSC_API int __stdcall EnableDecodeNotify(HCONNECT hConnect, HANDLE hWnd, DWORD Option, void *Buffer, DWORD BufferSize, DECODE_NOTIFY_CALLBACK callback);  

Пишу на Delphi, даже не компилируется :( [Co ...

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

Здравствуйте ! 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