Архивы Lazarus - Страница 2 из 2

Работа с Ini файлами.

28.10.2014 Павел Грибов Lazarus

Короткий пример, лучше всего..

uses INIFiles;
procedure TForm1.Button1Click(Sender: TObject);
Var
   IniF:TINIFile;
begin
    Inif := TINIFile.Create('getmailconf.ini');
    INiF.WriteString('config','email',form1.emailto.text);
end;
procedure TForm1.FormCreate(Sender: TObject);
Var
   IniF:TINIFile;
begin
    Inif := TINIFile.Create('getmailconf.ini');
   form1.emailto.text:=INiF.ReadString('config','email','testmail@yartelecervice.ru');

end;

uses INIFiles;

procedure TForm1.Button1Click(Sender: TObject);

Var

IniF:TINIFile;

begin

Inif := TINIFile.Create('getmailconf.ini');

INiF.WriteString('config','email',form1.emailto.text);

end;

procedure TForm1.FormCreate(Sender: TObject);

Var

IniF:TINIFile;

begin

Inif := TINIFile.Create('getmailconf.ini');

form1.emailto.text:=INiF.ReadString('config','email','testmail@yartelecervice.ru');

end;

Оставить комментарий freepascal, ini, lazarus

Выгрузка в XML файл данных из ПО Орион-Про (турникет)

01.04.2013 Павел Грибов Delphi, Lazarus

В рамках развития проекта «Учет ТМЦ в организации«, возникла нужда выгружать данные полученные с турникета Perco, из программы Орион-Про (благо формат базы данных хорошо описан в документации). А точнее список забитых в Орион-Про сотрудников, и журнал регистрации входов-выходов. Выгрузку реализовал как на Lazarus, так и на Delphi. Почему? Потому что в Lazarus как оказалось не реализован класс ADOConnection, а потому обработка написанная на Lazarus (FreePascal) не может подключиться к серверу MSSQL если оный расположен удаленно.

Скачать исходники можно здесь (export_orion_pro.zip).

Из интересных моментов, в FreePascal (Lazarus) и в Delphi по разному реализована работа с датами в запросах в MSSQL.

Оставить комментарий выгрузка даных, орион-про, турникет

Учет оргтехники (закрыто)

02.02.2012 Павел Грибов Lazarus

Кроссплатформенное Linux/Windows приложение позволяющее вести учет оргтехники на небольшом предприятии. Возможности: приход, списание, перемещение, инвентаризация, печать штрихкодов, ремонты, заправки, отчеты.