Найдено 59 результатов

pi1
29.12.2019 21:31:18
Форум: Lazarus
Тема: Как получить курс валют
Ответы: 3
Просмотры: 3978

Как получить курс валют

Перерыл кучу всякого хлама из топиков спецов в delphi. Чего там только нет Потом написал такой код
procedure Tf_work.btn_currClick(Sender: TObject);
var
dollar,euro,myString:string;
date:string;
s1,s2:string;
begin
IdHTTP1.Request.UserAgent:='Mozilla/5.0 ...
pi1
04.11.2019 12:02:07
Форум: Lazarus
Тема: Lazarus 1.8.4 не может найти fbclient.dll (Firebird 3.0)
Ответы: 39
Просмотры: 32683

Re: Lazarus 1.8.4 не может найти fbclient.dll (Firebird 3.0)

От души понравился совет про смену профессии Чек конкретно и грамотно описал проблему в конкретной версии IDE, а ему типа "забудь про них". Не понятно тогда зачем советчик вообще пишет в этой теме. Может вообще забыть про Lazarus и программировать например в ExtJS? А сколько еще идей ... . Можно еще ...
pi1
29.09.2019 18:54:57
Форум: Lazarus
Тема: Работа с фискальным регистратором через OLE
Ответы: 3
Просмотры: 5942

Re: Работа с фискальным регистратором через OLE

Откомпилировал проект , сделанный в 1.6, в 1.8.4. При вызове функции объекта OleVariant созданного через CreateOleObject предупреждение, что не найден класс этого объекта. К сожалению само сообщение не скопировал в магазине. Кто нить знает как это сообщение забанить?
pi1
26.03.2018 21:09:28
Форум: Lazarus
Тема: sqlite3 непонятки с @
Ответы: 1
Просмотры: 2413

sqlite3 непонятки с @

Открыл старый проект в котором использовался Sqlite3Dataset. Проект рабочий. Нужно добавить новые фишки в exe-шник. Однако проект не компилируется (fpc 3.0.0). В sqlite3ds.pas несколько функций имеют входные данные в виде @Result, @vm и т.п. На них компилятор и ругается. fpc 2.6 нормально ел это в ...
pi1
28.02.2018 15:08:20
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30625

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

Ниже вывод калькуляции в Writer (LibreOffice)
var
ServiceManager, Desktop : Variant;
CoreReflection, PropertyValue, VA: Variant;
Document: Variant;
Table, TableCell : Variant;
obj, objText, objCursor : Variant;
w,n : integer;
Cols,range : Variant;
str,fname1 ...
pi1
20.02.2018 21:00:42
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30625

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

Планирую создать отдельную тему с разборкой причин и следствий некорректного вывода в htm в Lazreporte . Но это потом. А пока замечание по выводу в Word. Текст сначала присваивается переменной widestring, с конвертацией в текущую кодировку из кодировки lazarusa- utf8, и только потом корректно ...
pi1
19.02.2018 16:06:03
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30625

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

Ниже самый простой пример работы с Word (ms office 2007)

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord,wdDoc,range1,wdTable: Variant;
begin
try
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
except
Exception.Create('Error');
end ...
pi1
18.02.2018 19:54:37
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30625

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

Delphi: работа с MS WORD- m

Добавлено спустя 8 минут 36 секунд:
Когда то, в 2002 я поступил очень просто (корпоративные правила безопасников определили rtf как единственно допустимый формат, приходили скан - документы в этом формате из Москвы, 80 МБ, это при 16 МБ ОЗУ). Создал пустой rtf и ...
pi1
18.02.2018 10:47:33
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30625

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

А вот тут очень толково про "Импорт информации из Delphi в Word" (Владимир Богдановский)- m
Кстати, для вывода кириллицы в Writter (Word) мне пришлось использовать utf8decode.

Добавлено спустя 3 минуты 54 секунды:
Вот не пойму почему, но у меня через TfrHtmExport из Lazreport выводится ну очень ...
pi1
14.02.2018 21:11:36
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30625

LibreOffice-DELPHI-Lazarus-OpenOffice

Тут возникла необходимость вывода в документ LibreOffice (под Windows). Перерыл много. Думаю мои ссылки помогут время съэкономить.
Сначала статьи, местами друг у друга списано, но есть и отличие.
m - Первые шаги в автоматизации OpenOffice.Calc и OpenOffice.Writer под Delphi Источник: delphisources ...
pi1
16.11.2017 09:15:46
Форум: Lazarus
Тема: Не обновляется информация о версии
Ответы: 15
Просмотры: 13189

Re: Не обновляется информация о версии

Если изначально не было включено автонаращивание, то сначала "Очистить и собрать", а затем уже "Собрать". Далее просто "Собрать".
pi1
04.10.2017 19:04:10
Форум: Lazarus
Тема: missing (compatible) underlying dataset
Ответы: 3
Просмотры: 5028

Re: missing (compatible) underlying dataset

Насколько понял, в компилятор была добавлена проверка правильности работы с полями компоненты sqlquery. На примере. Мы объявили в юните для sqlquery поля f1, f2, f3. Затем открываем датасет запросом select f1 from ttable . Возникает интересный вопрос, что в этом открытом датасете в полях f2 и f3 ...
pi1
04.10.2017 18:47:33
Форум: Lazarus
Тема: Как поменять сортировку в открытом sqlquery?
Ответы: 2
Просмотры: 4079

Как поменять сортировку в открытом sqlquery?

Есть открытый sqlquery (Firebird) в который вводятся данные методом add. После выполнения процедуры до выполнения Commit желательно просмотреть эти данные в dbgrid в, отсортированном по значениям одного из полей, порядке. Че то не соображу как сделать :cry:
pi1
03.04.2017 12:28:18
Форум: Lazarus
Тема: Кодировка Win1251 опять.....
Ответы: 23
Просмотры: 25907

Re: Кодировка Win1251 опять.....

Большое человеческое спасибо vitaly_l за подсказку.
UTF8ToWinCP - рулит, если нужно использовать запуск командной строки из своего проекта (а в строке присутствует кириллица).
pi1
29.03.2017 13:40:48
Форум: Lazarus
Тема: missing (compatible) underlying dataset
Ответы: 3
Просмотры: 5028

Re: missing (compatible) underlying dataset

В продолжение темы. Значит если раньше я создавал на форме один SQLQuery с набором полей f1,f2,f3,f4,f5,f6,f7. В зависимости от необходимости открывал запрос select f1,f4,f5 from TTable1. То сейчас на версии 1.6 (3.0) я получаю затык с сообщением missing (compatible) underlying dataset. То есть на ...