Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Форматы файлов и данных (42)
-->Список пользователей 1С
Опубликовано codeLocker в 03.09.2008 в 08:23.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных
Вот всего одна функция возвращающая список пользователей 1С:
//Список пользователей 1С
function LoadUsers(OneSPath: String): TStringList;
type
TChar = array of Char;
var FN: String;
SL: TStringList;
MS: TMemoryStream;
S: String;
i, j: Integer;
LogOld: String;
begin
Result := TStringList.Create;
FN := OneSPath + '\usrdef\users.usr';
if not FileExists(FN) then Exit;
MS := TMemoryStream.Create;
try
MS.LoadFromFile(FN);
S := '';
function LoadUsers(OneSPath: String): TStringList;
type
TChar = array of Char;
var FN: String;
SL: TStringList;
MS: TMemoryStream;
S: String;
i, j: Integer;
LogOld: String;
begin
Result := TStringList.Create;
FN := OneSPath + '\usrdef\users.usr';
if not FileExists(FN) then Exit;
MS := TMemoryStream.Create;
try
MS.LoadFromFile(FN);
S := '';
Ansi to Unicode
Опубликовано codeLocker в 15.08.2008 в 11:16.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
//Ansi to Unicode
function AnsiToUnicodeHex(S: String): String;
//Ansi to Unicode
function Win2UTF16(S: String): String;
var b: string;
i, Len: integer;
c: byte;
a: Char;
begin
//Ansi to Unicode
Result := '';
Len := Length(S);
try
for i := 1 to Len do begin
a := S[i];
c := Ord(a);
case c of
function AnsiToUnicodeHex(S: String): String;
//Ansi to Unicode
function Win2UTF16(S: String): String;
var b: string;
i, Len: integer;
c: byte;
a: Char;
begin
//Ansi to Unicode
Result := '';
Len := Length(S);
try
for i := 1 to Len do begin
a := S[i];
c := Ord(a);
case c of
Работа с XML в Delphi
Опубликовано codeLocker в 08.08.2008 в 10:29.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных
Формат хранения данных XML уже занял отведенную ему нишу в мировом обществе программистов. А значит людям пишущим на Delphi тоже пора посмотреть на этот формат повнимательней.
История
Читаем заголовок exe файла
Опубликовано codeLocker в 30.07.2008 в 09:54.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных
procedure DumpDOSHeader(const h: IMAGE_DOS_HEADER; Lines: TStrings);
begin
Lines.Add('Dump of DOS file header');
Lines.Add(Format('Magic number: %d', [h.e_magic]));
Lines.Add(Format('Bytes on last page of file: %d', [h.e_cblp]));
Lines.Add(Format('Pages in file: %d', [h.e_cp]));
Lines.Add(Format('Relocations: %d', [h.e_crlc]));
Lines.Add(Format('Size of header in paragraphs: %d', [h.e_cparhdr]));
Lines.Add(Format('Minimum extra paragraphs needed: %d', [h.e_minalloc]));
begin
Lines.Add('Dump of DOS file header');
Lines.Add(Format('Magic number: %d', [h.e_magic]));
Lines.Add(Format('Bytes on last page of file: %d', [h.e_cblp]));
Lines.Add(Format('Pages in file: %d', [h.e_cp]));
Lines.Add(Format('Relocations: %d', [h.e_crlc]));
Lines.Add(Format('Size of header in paragraphs: %d', [h.e_cparhdr]));
Lines.Add(Format('Minimum extra paragraphs needed: %d', [h.e_minalloc]));
Конвертировать INI файл в XML
Опубликовано codeLocker в 24.07.2008 в 15:23.
ОС: Windows Язык: Delphi/Kylix Раздел: Форматы файлов и данных • Конвертация
uses XMLIntf, XMLDoc, INIFiles;
procedure INI2XML(const pINIFileName: string; const pXML: IXMLNode;
const AsAttributes: Boolean = true);
var
lINIFile: TIniFile;
lSections, lItems: TStringList;
iSections, iItems: integer;
lNode: IXMLNode;
begin
lINIFile := TIniFile.Create(pINIFileName);
try
lSections := TStringList.Create;
try
lItems := TStringList.Create;
try
lINIFile.ReadSections(lSections);
for iSections := 0 to pred(lSections.Count) do
begin
lItems.Clear;
procedure INI2XML(const pINIFileName: string; const pXML: IXMLNode;
const AsAttributes: Boolean = true);
var
lINIFile: TIniFile;
lSections, lItems: TStringList;
iSections, iItems: integer;
lNode: IXMLNode;
begin
lINIFile := TIniFile.Create(pINIFileName);
try
lSections := TStringList.Create;
try
lItems := TStringList.Create;
try
lINIFile.ReadSections(lSections);
for iSections := 0 to pred(lSections.Count) do
begin
lItems.Clear;
Спонсоры проекта:
Навигация
Сейчас на сайте
Сейчас на сайте 0 пользователей и 2 гостя.
Статистика
Всего материалов: 1387