Перерыл кучу всякого хлама из топиков спецов в 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 ...
Найдено 59 результатов
- 29.12.2019 21:31:18
- Форум: Lazarus
- Тема: Как получить курс валют
- Ответы: 3
- Просмотры: 3978
- 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? А сколько еще идей ... . Можно еще ...
- 29.09.2019 18:54:57
- Форум: Lazarus
- Тема: Работа с фискальным регистратором через OLE
- Ответы: 3
- Просмотры: 5942
Re: Работа с фискальным регистратором через OLE
Откомпилировал проект , сделанный в 1.6, в 1.8.4. При вызове функции объекта OleVariant созданного через CreateOleObject предупреждение, что не найден класс этого объекта. К сожалению само сообщение не скопировал в магазине. Кто нить знает как это сообщение забанить?
- 26.03.2018 21:09:28
- Форум: Lazarus
- Тема: sqlite3 непонятки с @
- Ответы: 1
- Просмотры: 2413
sqlite3 непонятки с @
Открыл старый проект в котором использовался Sqlite3Dataset. Проект рабочий. Нужно добавить новые фишки в exe-шник. Однако проект не компилируется (fpc 3.0.0). В sqlite3ds.pas несколько функций имеют входные данные в виде @Result, @vm и т.п. На них компилятор и ругается. fpc 2.6 нормально ел это в ...
- 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 ...
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 ...
- 20.02.2018 21:00:42
- Форум: Lazarus
- Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
- Ответы: 24
- Просмотры: 30625
Re: LibreOffice-DELPHI-Lazarus-OpenOffice
Планирую создать отдельную тему с разборкой причин и следствий некорректного вывода в htm в Lazreporte . Но это потом. А пока замечание по выводу в Word. Текст сначала присваивается переменной widestring, с конвертацией в текущую кодировку из кодировки lazarusa- utf8, и только потом корректно ...
- 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 ...
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 ...
- 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 и ...
Добавлено спустя 8 минут 36 секунд:
Когда то, в 2002 я поступил очень просто (корпоративные правила безопасников определили rtf как единственно допустимый формат, приходили скан - документы в этом формате из Москвы, 80 МБ, это при 16 МБ ОЗУ). Создал пустой rtf и ...
- 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 выводится ну очень ...
Кстати, для вывода кириллицы в Writter (Word) мне пришлось использовать utf8decode.
Добавлено спустя 3 минуты 54 секунды:
Вот не пойму почему, но у меня через TfrHtmExport из Lazreport выводится ну очень ...
- 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 ...
Сначала статьи, местами друг у друга списано, но есть и отличие.
m - Первые шаги в автоматизации OpenOffice.Calc и OpenOffice.Writer под Delphi Источник: delphisources ...
- 16.11.2017 09:15:46
- Форум: Lazarus
- Тема: Не обновляется информация о версии
- Ответы: 15
- Просмотры: 13189
Re: Не обновляется информация о версии
Если изначально не было включено автонаращивание, то сначала "Очистить и собрать", а затем уже "Собрать". Далее просто "Собрать".
- 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 ...
- 04.10.2017 18:47:33
- Форум: Lazarus
- Тема: Как поменять сортировку в открытом sqlquery?
- Ответы: 2
- Просмотры: 4079
Как поменять сортировку в открытом sqlquery?
Есть открытый sqlquery (Firebird) в который вводятся данные методом add. После выполнения процедуры до выполнения Commit желательно просмотреть эти данные в dbgrid в, отсортированном по значениям одного из полей, порядке. Че то не соображу как сделать 
- 03.04.2017 12:28:18
- Форум: Lazarus
- Тема: Кодировка Win1251 опять.....
- Ответы: 23
- Просмотры: 25907
Re: Кодировка Win1251 опять.....
Большое человеческое спасибо vitaly_l за подсказку.
UTF8ToWinCP - рулит, если нужно использовать запуск командной строки из своего проекта (а в строке присутствует кириллица).
UTF8ToWinCP - рулит, если нужно использовать запуск командной строки из своего проекта (а в строке присутствует кириллица).
- 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. То есть на ...
