/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 735
от 13.02.2007, 10:35

Вопрос № 74.623

Есть динамическая библиотека написанаая С++ Builder В ней функция int _Read(char *to); Функция читает полученные данные, лежащие в буфере входа последовательного порта. Полученные данные сохраняются по задаваемому параметром адресу to. Возвращает либо количество принятых байт, либо 0 если буфер пуст, либо отрицательное число в случае ошибки. Как получить данные из этой библиотеки(функциии) в программе написанной Delphi в тип данных String? Заранее благодарю. Если не сложно пожалуйста приведите код программы.

Отправлен: 07.02.2007, 19:02 Вопрос задал: Дмитрий З. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Архангельский Андрей Германович Здравствуйте, Дмитрий З.! В приложении код, который использует функцию az_CalcCRC32 все прекрасно работает, только передавать нужно не String, а PChar Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RzLabel, Mask, RzEdit, Buttons, ExtCtrls, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; tsMathFncs: TTabSheet; tsStringFncs: TTabSheet; btn_CRC32: TSpeedButton; ed_CRC32Text: TRzEdit; lb_CRC32Result: TRzLabel; procedure FormCreate(Sender: TObject); Function IntToBit(Num : Integer) : PChar; procedure btn_CRC32Click(Sender: TObject); private { Private declarations } public { Public declarations } end; Function az_libname() : PChar; stdcall; Function az_libversion() : PChar; stdcall; Function az_CalcCRC32(buf : PChar) : Integer; stdcall; var Form1: TForm1; implementation {$R *.dfm} Function az_libname; stdcall; external 'az_udf.dll'; Function az_libversion; stdcall; external 'az_udf.dll'; Function az_CalcCRC32; stdcall; external 'az_udf.dll'; procedure TForm1.FormCreate(Sender: TObject); begin Self.Caption := String(az_libname())+' '+String(az_libversion()); end; procedure TForm1.btn_CRC32Click(Sender: TObject); Var str : PChar; begin Str := PChar(ed_CRC32Text.Text); lb_CRC32Result.Caption := IntToStr(az_CalcCRC32(Str)); {} end; end. --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 07.02.2007, 19:14

Отвечает: sir henry Здравствуйте, Дмитрий З.! Аналогом char *to в Си++, в Дельфи будет являться PChar. Остается только преобразовать в String: Function int_Read(to: PChar): Integer; stdcall; external 'Библиотека_C++.dll'; Function FromComPort: String; Var to: PChar; Begin Result:=StrPas(int_Read(to)); End;

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 07.02.2007, 19:27

Вопрос № 74.641

Здравствуйте! У меня стоит Turbo Delphi 2006, которая бесплатная. И есть сайт на PHP. Хочу сделать на Дельфи программу-БД, где буду хранить текстовую запись и фотографии (добавлять, редактировать). А затем экспортировать в какой-либо архив нужный элемент и закачивать на сайт. Ещё проще (если уметь :) подключаться из программы на сайт. Тогда как лучше передавать данные? Использовать XML приходит в голову. В Дельфи с этим не работал. - Подскажите как работать с XML в Дельфи? - Какой есть путь проще для передачи данных на сайт из программы? При этом нужен двусторонний обмен данными. Чтобы прямо из программы мог видеть статистику работы чего_нибудь_там. :) И удалять/изменять при необходимости. - В Дельфи 7 какой-то урок по работе с БД пробовал набивать. А в моей версии есть чуть-чуть различия и не соображу как добавлять данные в БД? И не подскажите где есть статьи, рассказывающие о компонентах Дельфи? Из каждой палитры. Заранее спасибо!

Отправлен: 07.02.2007, 20:40 Вопрос задал: Yadovit (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, Yadovit! 1) Turbo Delphi 2006 - пригодна только для учебных и расчетных программ. Она не позволяет добавлять компоненты, имеющаяся библиотека доступа к БД DbExpress не позволяет использовать двунаправленные курсоры, а следовательно, нельзя отобразить таблицу на Grid. Т.е. оказалась бесполезной даже для учебных целей. 2) XML - это язык структурирования документов. Использовать его для заполнения БД неэффективно, а часто и невозможно. ЕСть такие структуры БД в которых он не работает. С другой стороны есть стандартный язык манипулирования данными SQL - такой же текстовый файл, но позволяет делать все - от создания БД, до заполнения и выборки. Работает как сам по себе, так и в Delphi Добавлять данные на сайт можно как из компонента idFTP, так и с помощью программы FAR. Используя первый вариант необходимо самому обработать все возможные ошибки, используя второй вариант - в своей программе генерируешь сайт (или его часть) и с помощью FAR заливаешь все на сайт не задумываясь. Я использую второй вариант. Во всяком случае я предпочитаю, чтобы оригинал сайта был у меня на винчестере, а на хостинге была копия. Кроме того статистика работы моих сайтов собирается с помощью маленького скрипта на Perl и сохраняется на хостинге в формате скриптов SQL, которые я периодически забираю и заливаю в БД. Хороший сайт по Delphi лежит здесь http://www.delphikingdom.com/ --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 07.02.2007, 21:34 Оценка за ответ: 4

Вопрос № 74.664

Здраствуйте уважаемые эксперты Подскажите пожалуйста, как можно сохранить в каком нибуть фаиле (к примеру в файле settings.dat) настройки фонтов т.е. настройки из компонента TFontDialog (размер, шрифт итд.) и чтобы при следущем запуске программы эти настройки можно былобы опять загрузить в компонент fontdialog и сразу же использовать их к мемо, Memo1.Font? и как тоже самое можно проделать с компонентом ColorDialog? Заранее Спасибо. С Уважением, Станислав.

Отправлен: 07.02.2007, 22:26 Вопрос задал: Станислав (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, Станислав! В большинстве случаев достаточно использовать файл Ini. Подробнее можно прочитать по адресу: http://www.az-design.ru/Support/SoftWare/Delphi/D3/SB04.shtml --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 07.02.2007, 22:32 Оценка за ответ: 4

Отвечает: Mo-skin Здравствуйте, Станислав! Советую Вам воспользоваться ини-файлами. Для этого необходимо в Uses дописать IniFiles. В приложении пример. Там на форме только один компонент: Memo1. При создании формы (OnCreate) данные считываются из файла config.dat (при отсутсвии файла он создается), а при уничтожении (OnDestroy) сохраняются. Записываются размер, высота, кодировка, цвет и название шрифта. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; INI: TIniFile; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.dat'); Memo1.Font.Size:=INI.ReadInteger('Memo1','FontSize',Memo1.Font.Size); Memo1.Font.Height:=INI.ReadInteger('Memo1','FontHeight',Memo1.Font.Height); Memo1.Font.Charset:=INI.ReadInteger('Memo1','FontCharset',Memo1.Font.Charset); Memo1.Font.Color:=INI.ReadInteger('Memo1','FontColor',Memo1.Font.Color); Memo1.Font.Name:=INI.ReadString('Memo1','FontName',Memo1.Font.Name); end; procedure TForm1.FormDestroy(Sender: TObject); begin INI.WriteInteger('Memo1','FontSize',Memo1.Font.Size); INI.WriteInteger('Memo1','FontHeight',Memo1.Font.Height); INI.WriteInteger('Memo1','FontCharset',Memo1.Font.Charset); INI.WriteInteger('Memo1','FontColor',Memo1.Font.Color); INI.WriteString('Memo1','FontName',Memo1.Font.Name); end; end. --------- Чем больше женщину мы меньше, тем меньше больше мы ее!

Ответ отправил: Mo-skin (статус: 3-ий класс) Ответ отправлен: 07.02.2007, 23:54 Оценка за ответ: 5 Комментарий оценки: Спасибо.

Отвечает: Gh0stik Здравствуйте, Станислав! В приложении две процедуры которые соответственно создают файл настроек (settings.dat - по сути простой ini-файл) и сохраняют в него параметры компонента TFontDialog и загружают из него сохраненные настройки. Для компонента ColorDialog - Вы соответственно на основе примера сможите сделать подобные процедуры. Более подробно по работе с ini-файл можно прочитать по ссылке, рассмотрены такие вопросы: * TIniFile * TStringList в TIniFile * Загрузить или сохранить значения TCheckListbox в INI файл * Изменить RootKey для TRegIniFile * Как после записи в ini-файл сбросить cache на диск, чтоб задействовать изменения * Как создать Ini-файл в директории программы * Как сохранить и получить строку из INI-файла * Как указать системе на необходимость сбросить буфер INI-файла на диск * Как хранить настройки для программы. Работа с INI-файлами * Некоторые модификации методов ReadSection и ReadSections объекта, типа TIniFile * Определить, что WIN.INI был изменен * Проблемы ini-файла * Работа с INI файлами * Работа с INI-файлами * Сохранение потока в INI файле * Сохранять настройки в ini-файле Good Luck!!! Приложение: procedure TForm1.IniCreateClick(Sender: TObject); var inif:TIniFile; begin inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.dat'); with inif do begin WriteString('FontDialog','FontName',FontDialog1.Font.Name); WriteInteger('FontDialog','FontSize',FontDialog1.Font.Size); WriteString('FontDialog','FontColor',ColorToString(FontDialog1.Font.Color)); Free; end; end; procedure TForm1.IniLoadClick(Sender: TObject); var inif:TIniFile; begin inif:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.dat'); with inif do begin FontDialog1.Font.Name:=ReadString('FontDialog','FontName',FontDialog1.Font.Name); FontDialog1.Font.Size:=ReadInteger('FontDialog','FontSize',FontDialog1.Font.Size); FontDialog1.Font.Color:=StringToColor(ReadString('FontDialog','FontColor','clBlack')); Free; end; end; --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 08.02.2007, 00:15 Оценка за ответ: 5 Комментарий оценки: Спасибо.

Вопрос № 74.670

Здраствуйте!!! Подскажите пожалуйста адресс статьи или книжки по Rave Reports. Как во время выполнения приложения создавать формы по уже созданной форме,тоесть все функции и компоненты на формах были как в уже описанной форме?

Отправлен: 07.02.2007, 23:05 Вопрос задал: chikanok (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, chikanok! Есть "Руководство пользователя Rave Reports" и "Руководство разработчика" на русском языке - 2 файла по 2Мб - могу выслать --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 08.02.2007, 08:46

Вопрос № 74.724

Доброго! Нужна помощь ... Вопрос, как консоль отобразить на форме, или перенаправить поток консоли в др. компонент, например в Мемо ... Также, как реагировать на ввод ...

Отправлен: 08.02.2007, 10:03 Вопрос задал: CjJoker (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gladiator Здравствуйте, CjJoker! Приложение не может быть одновременно и консольным и Win32, поэтому для этого вам нужно писать как минимум две программы. Или в Win32-приложении сделать "визуальную" иммитацию консоли, но не могу понять, для чего это вам нужно?

Ответ отправил: Gladiator (статус: 8-ой класс) Ответ отправлен: 08.02.2007, 15:00 Оценка за ответ: 1

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.44 beta от 26.01.2007