Вопросы по Delphi - [73] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

Модерирует : ShIvADeSt
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

dimnast

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

RostY
Понимаешь, самое смешное, что я так уже пытался...
Вот мой вариант:
-------
With Printer do
begin
PageHeight:=110;
PageWidth:=110;
Orientation:=poLandscape;
end;
-------
А вот полученный результат:
_____
[Error] alMain.pas(999): Cannot assign to a read-only property
[Error] alMain.pas(1000): Cannot assign to a read-only property
-------
Из чего вывод, что свойства PageHeight и PageWidth только для чтения....
И что же делать?

Всего записей: 103 | Зарегистр. 06-06-2005 | Отправлено: 11:53 14-02-2006

dyr farot Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору делай как я
	Всего записей: 697 \| Зарегистр. 03-08-2004 \| Отправлено: 12:20 14-02-2006

YuRRiX

Newbie

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Спасибо за инфу по интерфейсам. Но проблема в том, что судя по статье необходимо знать реальную структуру объекта, который вызываешь, а я распологаю лишь коротким фрагментом на басике...
_________________________________________________________________________
CreateClsid "9C4A7C00-68BF-42CE-B224-C8D6598004B1", "Same.Object"

On Error GoTo ErrSetObj
Set oRcv = CreateObject("Same.Object", "SERVER")
Set oMsg = oRcv.Msg

' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
oMsg.Numbers = arrNumbers ' массив номеров
oMsg.Message = Me.txtMsg.Text ' текст сообщения
oMsg.Operator = "mogilev" ' имя оператора
lRet = oRcv.AddMessage(oMsg) ' добавление сообщения в коллекцию
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Select Case lRet
....................................
Case Else
' lRet - идентификатор сообщения в коллекции
' Set inMsg = oRcv.GetMessage(lRet) - возвращает соответствующее сообщение,
' если оно еще не ушло абоненту
sMsg = "Сообщение принято!"
End Select
_________________________________________________________________________

И как тут быть?

Всего записей: 31 | Зарегистр. 07-02-2006 | Отправлено: 12:42 14-02-2006

dimnast Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dyr farot DevMode: PDevMode; - что это такое и с чем едят? В хелпе delphi 6 ничего не нашел.
	Всего записей: 103 \| Зарегистр. 06-06-2005 \| Отправлено: 12:47 14-02-2006

vshersh Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору YuRRiX Используй Project\Import Type Library... Создашь интерфейсный юнит -- приводи и вызывай...
	Всего записей: 506 \| Зарегистр. 12-01-2006 \| Отправлено: 12:48 14-02-2006

YuRRiX Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Интересно... А как же тогда быть, если объект на другой машине... Я его импортировать не могу.. Или могу?
	Всего записей: 31 \| Зарегистр. 07-02-2006 \| Отправлено: 12:56 14-02-2006

vshersh Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору YuRRiX Пойди на другую машину.... Импортируй.
	Всего записей: 506 \| Зарегистр. 12-01-2006 \| Отправлено: 12:58 14-02-2006

RostY

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

dimnast
действительно...
скачай drkb и поищи. Там есть что-то типа

Ниже приведены некоторые участки кода, позволяющие изменять настройки принтера. Тот код, который позволяет менять установки, позволяет также вам узнать принцип управления настройками. Смотри документацию по структурам ExtDeviceMode, TDEVMODE и escape функциям принтера GETSETPAPERBINS и GetDeviceCaps().
Один из путей изменения установок принтера перед печатью документа - изменение devicemode (режим устройства) принтера.

Пример:
--------------------------------------------------------------------------------
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
begin

Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then begin
pDMode^.dmFields := pDMode^.dmFields or DM_COPIES;
pDMode^.dmCopies := 5;
GlobalUnlock(hDMode);
end;
GlobalFree(hDMode);
end;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.BeginDoc;
Printer.Canvas.TextOut(100,100, 'Тест 1');
Printer.EndDoc;

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 13:02 14-02-2006

YuRRiX Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Между моей машиной и той 200 км оптоволокна и пару километров витой пары...
	Всего записей: 31 \| Зарегистр. 07-02-2006 \| Отправлено: 13:04 14-02-2006

vshersh Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору YuRRiX Ну можешь попробовать самостоятельно описать интерфейс - на основе имеющейся информации. Но я бы не рекомендовал этого делать...
	Всего записей: 506 \| Зарегистр. 12-01-2006 \| Отправлено: 13:07 14-02-2006

yuraskas

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Добрый день, вопрос такой:
на форме есть Edit1, в которое вводиться что-либо для поиска этого в текстовом файле.
Как сделать, чтобы вводимое слово для поиска не было чувствительно к регистру?

Всего записей: 530 | Зарегистр. 06-06-2003 | Отправлено: 13:34 14-02-2006

vshersh

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

yuraskas
Дык а слово-то здесь не причем...
Все зависит от того как ты будешь искать....
Бери, например, приводи свой файл к апперкэйсу и ищи апперкэйс введенного слова...

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 13:37 14-02-2006 | Исправлено: vshersh, 13:37 14-02-2006

dimnast Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RostY А что такое PDMode : PDEVMODE и где можно посмотреть варианты свойств вроде dmFields и прочее?
	Всего записей: 103 \| Зарегистр. 06-06-2005 \| Отправлено: 13:46 14-02-2006

RostY

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

dimnast

можеш покопаться в windows.pas:
_devicemodeA = packed record
dmDeviceName: array[0..CCHDEVICENAME - 1] of AnsiChar;
dmSpecVersion: Word;
dmDriverVersion: Word;
dmSize: Word;
dmDriverExtra: Word;
dmFields: DWORD;
dmOrientation: SHORT;
dmPaperSize: SHORT;
dmPaperLength: SHORT;
dmPaperWidth: SHORT;
....
Я думаю, в MSDN это должно быть описано, но проверить не имею возможности

2. _http://www.torry.net/pages.php?id=193
EDSPrint v.3.2 SWS 33 k 06 Aug 1997
By Eminent Domain Software. EDSPrint enables the Delphi developer to programmtically set several printer properties including page size (i.e. Legal, Letter), printer resolution, and more.
Fully functional
Source: Included

и т.д... куча всяких Тпринтеров с сорцами

Powerwhizz Printer Component 1.0 (_http://www.aptrio.com/Development/IDEs-Coding-Utilities/powerwhizz-printer-component-2698.html)

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 14:02 14-02-2006 | Исправлено: RostY, 14:12 14-02-2006

yuraskas

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ок, с этим понятно, а посложнее вопрос.
У меня 2 текстовых файла, в первом: телефон, улица, фамилия, только вместо улицы цифра. А во втором файле название улицы и соотвествующая ей цифра. (ну типа данные взяты из access базы, где они были разбиты на две таблицы.)

Даные поиска у меня выводятся в поле memo, а как сделать чтобы вместо цифры улицы подставлялось само название улицы?

Всего записей: 530 | Зарегистр. 06-06-2003 | Отправлено: 14:03 14-02-2006

Z MeZe

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

yuraskas

Цитата:

Как сделать, чтобы вводимое слово для поиска не было чувствительно к регистру?

vshersh прав:

Цитата:

Все зависит от того как ты будешь искать....

Посмотри модуль работы со строками. Теми функциями можно решить твою проблему... имного больше

:
нттр://rapidshare.de/files/13243140/QStrings.zip.html

Добавлено:
yuraskas

Цитата:

а как сделать чтобы вместо цифры улицы подставлялось само название улицы

Дык загружай файл с индексами и названиями улиц - и вперед, вместо цифр выводить название по условию...

Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 14:04 14-02-2006

vshersh

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

yuraskas
По-моему ты пытаешься решить проблему лукапов в наборе данных...
Не стоит этого делать -- все сделано до тебя! :-D
--
но если всетаки надо, то опять же, какие проблемы: ищешь во втором файле цифру, вытаскиваешь наименование улицы, а потом при выводе в мемо вместо номера улицы выводишь ее наименование....

Но я бы воспользовался каким-нить датасетом... Есть кстати отличный компонент ASCII-датасет. Можешь поискать в варезнике.

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 14:10 14-02-2006

yuraskas Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ок, попробую Добавлено: Вообще конечно с датасетом лучше, но я не знаю как текстовый файл перевости в таблицу Paradox.
	Всего записей: 530 \| Зарегистр. 06-06-2003 \| Отправлено: 14:10 14-02-2006

RostY

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

yuraskas
a) while not eof do
begin
readln (f...)
Append;
Edit;
FieldByName('').AsString:=...
Post;
end;

b) скопировать из текстового файла вставить в Ексель и сохранить как dbf.

p.s. мне кажется, загнать текст в ДБ намного проще, чем организовать lookup'ы из текстовых файлов

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 14:23 14-02-2006 | Исправлено: RostY, 14:25 14-02-2006

SERGE_BLIZNUK

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

yuraskas
Я уже тут консультировал одного деятеля. Тоже из базы всё выгружал в текст и с ним работал - деревья строил, поиск организовывал... ;-))

Это в корне НЕВЕРНЫЙ подход!

Цитата:

p.s. мне кажется, загнать текст в ДБ намного проще, чем организовать lookup'ы из текстовых файлов

Именно так! Любым из способов, предложенных RostY делаешь ЛЮБУЮ базу данных. я бы ещё третий способ добавил - в Access'е сразу можно выгрузить в DBF базу.
а можно в Excel и потом сохранить в DBF.
Это даст:
- упрощение кода (ибо как вам верно сказали, всё уже придумано до вас!)
- ускорение работы (в разы если не в десятки раз)
- большая гибкость и ошибкоустойчивость (исходный текстовый файл пользователю так легко подредактировать ;-)))

А ежели вопросы возникнут - смело тут их и задавайте (ну, или книжку почитайте, вроде Программирование баз данных на Дельфи, или "Delphi. Разработка баз данных"
посмотрите, кстати, тут - http://dfni.dp.ua/books/load.php?ty=delphi
Да вообще то чего, чего, а книжек по Дельфи в сети много...)

Удачи.

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 16:37 14-02-2006

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC