Доброго времени суток!
Облазил почти весь инет в поисках ответа на свои вопросы, но пока не нашел.
Вся надежда на сообщество жителей королевства.
Есть cxGrid от DevExpress. Delphi XE
В таблице вывожу данные из TjvMemoryData (JVCL), который (dataset) формируется из некого массива данных.
Фактически это состояния различных элементов системы мониторинга.
Чтобы не создавать дополнительных манипуляций с dataset`ом почти все поля в нем вычисляемые, которые берутся как раз из "некого массива ...
Добрый день. Как закрепить значок программы в панели задач Windows 7 при помощи TCheckBox. Установил галочку программа появилась, снял галочку значок исчез. Сразу предупреждаю, как создать ярлык в "c:\Users\Пользователь\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" я знаю. Я создаю и ни чего не появляется. Нужна ещё какая то процедура. Помогите разобраться, для моего приложения это очень важно. ...
code:
if Edit1.Text<>'' then //если поле edit содержит текст тогда
begin
Table1.Filtered:=true; //установить фильтрацию для table1
Table1.Filter:=DBGrid1.SelectedField.FieldName+ '=' ''+Edit1.Text+ '*' '';
// что ОЗНАЧАЕТ ЭТА СТРОКА
end
else
Table1.Filtered:=false; //отключить фильтрацию
хочу более точно разобраться в коде для того что бы в будущем не возникало таких ошибок! ...
Есть файл, который содержит бинарные данные, не текстовые, фактически это некий байтовый массив, назовем его "data.dat".
Эти данные используются в коде как массив данных, например, byte xxx[] = {данные из файла "data.dat"};
Возникает вопрос, как написать код так, чтобы этот файл вкомпилировался как обычный массив данных?
Интересуют именно возможности языка программирования.
С вариантами типа использовать ресурсы либо конвертировать в шестнадцатеричный текст знаком. ...
Доброго дня. Пишу отправку почты с помошью TIDSMTP, TIDMessage, TIdAttachment и т.д.
Вопрос. МОжно ли отправить письмо html с несколькими attachmentами если в DELPHI 7 установлен Indy 9?
Нашел кучу примеров, но с Indy 10. там используются TIdAttachmentFile и ContentID. В Indy 9 их не нашел.
Уточняю цель: отправить file.htm, как body и как минимум 2 attachments: file.jpg - логотип для текста письма и file.pdf - счет клиенту за услуги
С благодарностью.
...
Хотела с Вами посоветоваться. Работаю в маленькой организации, потребовалось разработать несколько пользовательских форм для БД. Начала искать установщик, помню со студенческих времен были какие то Турбо-делфи для бесплатного пользования... На сайте их не обнаружила. Вот теперь в полном замешательстве... откуда его взять, и вообще хотелось бы почитать лиц. соглашение, можно интересно его ставить в ком. организации... Может я плохо искала, или не там искала. Нужен бесплатный делфи, можно усеченну ...
Здравствуйте уважаемые коллеги!
Вопрос по Webbrowser (компонент-наследник ТWebbrowser),
а точнее - об установлении нужного масштаба просмотра страниц.
Нашел такой код, где переменная aZoom задаёт масштаб в %:
code:const
OLECMDID_OPTICAL_ZOOM = 63;
var
ZoomFac: OLEVariant;
begin
try
ZoomFac:=aZoom;
(FOleObject as IWebBrowser2).ExecWB(OLECMDID_OPTICAL_ZOOM,
OLECMDEXECOPT_DONTPROMPTUSER,ZoomFac,EmptyParam);
except
end
end;
Доброй ночи.
Может кто-то сталкивался уже с такой проблемой. До 17 версии все отлично работало через OLE. После 17 версии после строки CreateOleObject('CorelDraw.Automation'); возникает ошибка EOleSysError "Недопустимая строка с указанием класса". Может кто-нибудь подскажет в каком направлении копать? ...
Понедельник, 07 Сентября 2015 г. 10:45
+ в цитатник
Доброго времени суток, уважаемые жители королевства! У меня вопрос! Как в Delphi или в Lazarus можно организовать поиск в базе данных таким образом, чтобы можно было найти, например в поле "Наименование фирмы", по двум значениям. К примеру в ComboBox1 я выбираю два параметра "Acer" и "Samsung", и в базе выходят только строки с этими фирмами.
Заранее благодарен!!! ...
Здравствуйте! Вопрос по MDI-окнам. Вопрос вроде простой но, он поставил меня в тупик. Как узнать значение Tag-а активного окна, но не из "родителя", а именно из "дитя". Каждое дочернее окно у меня некий формуляр, входящий в массив формуляров, при создании очередного дочернего окна, создаётся новый формуляр и заноситься в массив, причём Tag-у вновь созданного окна присваивается индекс нового формуляра. Вот я и хочу при активизации любого дочернего окна обращаться к соответствующему индексу массив ...
Использую компоненты IdCmdTCPServer и IdCmdTCPClient.
1. Как правильно отправлять данные? ниже мой код, через несколько отправлений подвисает программа, хотя до подвисания данные передаются успешно, видимо что то упустил.
2. И как вернуть подтверждение что сервер получил все данные.
Клиент:
[Code]procedure TForm1.Button12Click(Sender: TObject);
var
F: TMemoryStream;
begin
Form1.IdCmdTCPClient1.Connect;
if Form1.IdCmdTCPClient1.Connected then
begin
F := TMemoryStream.Crea ...
Воскресенье, 30 Августа 2015 г. 09:45
+ в цитатник
Всем привет! После перехода на Windows 10 обнаружилась проблема с модальными формами. Они хоть и выскакивают поверх всех окон и не дают кликать мышкой на других окнах, но скроллинг мыши на них почему то работает. В частности это касается TDBGrid и любого TDataSet, если предварительно выделить его, а потом вызвать модальную форму, то с помощью колесика мыши можно спокойно листать записи в базе, и это не просто визуальный обман, они действительно листаются (Проверил с помощью OnAfterScroll, на экр ...
доброе время суток, уважаемые гуру. не могу понять, почему не работает вызов функции dll из dll, точнее - пытаюсь подключить "обычную" dll к библиотеке isapi, компилируется всё хорошо (delphi xe8), но при обращении к сайту библиотека isapi виснет без возвращения какой-либо ошибки браузеру. эту же dll подключаю к обычному ".exe" - работает. или это в принципе невозможно, или я не так подключаю? рылся пару часов в сети, подходящей темы так и не нашёл. ...
Всем доброго дня.
"Я не волшебник , я только учусь". Вопрос по ActiveX и VBA(Excel )
File->New->Other->ActiveX->ActiveX Lib и далее ...->Activ.
File->New->Other->ActiveX->ActiveX Form.
В VBA CreateObject(MyActiveForm ...
Почему форма не визиализируется? (MyActiveForm.Show)
MyActiveForm.ShowModal "замораживает" VBA.Я так полагаю, ждет интерактивного закрытия.
То есть вроде косяков в коде нет.
Заранее благодарен. ...
доброе время суток
вопрос относительно освобождения памяти
1. в процессе работы программы в ProcessInfoList я добавляю/удаляю строки с соответственными объектами. правильно ли я освобождаю память?
[Code]
type
TProcessInfo = class(TObject)
i1: Extended;
i2: Extended;
end;
var
ProcessInfo: TProcessInfo;
ProcessInfoList: TStringList;
{инициализация}
begin
ProcessInfoList := TStringList.Create;
end;
{добавление}
begin
ProcessInfo := TProcessInfo.Create ...
Сразу говорю, только недавно начал программировать на Дельфе, и много не знаю, поэтому и прошу подсказать что, да как. Вопрос в следующем, на форме есть кнопка, при инициализации которой происходит следующее:
1) FileFinder - процедура находит все файлы GDB в папке и подпапках.
2) Циклом начинается осуществляться подключение к каждой БД, и экспорт информации из таблицы БД R_SYSTEMS В другую общую БД, где собирается информация по всем системам ВСЕХ клиентов компании.
Суть проблемы: Не во вс ...
Понедельник, 17 Августа 2015 г. 19:21
+ в цитатник
Здравствуйте. Столкнулся с проблемой SSL в Delphi XE8. Проблема связана с компонентами IdIMAP4 и IdSSLIOHandlerSocketOpenSSL. Изначально писал почтовик на D7 в XP x86, теперь переделал всё это дело на Delphi XE8 (Win7 x64) и вот тут то всё и началось! Переделанная программа на Win7 x64, естественно работает на всех x64 платформах, а на x86 не хочет, если её даже перекомпилировать на системе x86. В чём может быть проблема?
P.S. Самая первая версия, которую я написал на XP x86 D7 работала везде ...
Доброго дня, уважаемые жители Королевства.
Столкнулся я со следующей проблемой. У меня происходит отправка файлов адресату
IdMessage := TIdMessage.Create(nil);
try
if Assigned(Files) then for I := 0 to Files.Count - 1 do
if FileExists(Files[I]) then //Прикрепляем к письму файлы
TIdAttachmentFile.Create(IdMessage.MessageParts, Files[I]);
IdSMTP := TIdSMTP.Create(nil);
try
with IdMessage do
begin
From.Address := AFrom;
Sende ...
Есть директива компилятора {$IFDEF … } {$ELSE} {$END}, если обратная директива компилятора, директиве {$IFDEF ...}
Глупый вопрос из цикла не получилось найти в гугле... ...