ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Aleksoid1978 Цитата: Вот в Delphi никак не могу реализовать похожий вызов, 2-ой параметр не как не получается передать ни nil, ни NULL.   гугль иногда юзаем вот что нашел, человек пишет что ему подошло   Код:   ... interface ... {$EXTERNALSYM ChangeDisplaySettingsEx} function ChangeDisplaySettingsEx(lpszDeviceName: PChar; lpDevMode: PDeviceMode; // <--         wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint; stdcall; implementation function ChangeDisplaySettingsEx; external user32 name 'ChangeDisplaySettingsExA';     ChangeDisplaySettingsEx('', PDeviceMode(nil)^, 0, 0, nil); // вызов   ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 09:38 28-05-2009

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Mandor Sawall Цитата: Для етот вызов: Код:  ChangeDisplaySettingsEx('', PDeviceMode(nil)^, 0, 0, nil); не нужно преопределять функцию; все проходит и так.   скорее всего не надо, я просто нашел ответ в таком виде ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:06 28-05-2009

Aleksoid1978 Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Mandor Sawall   Да - все отлично работает и так, Цитата: ChangeDisplaySettingsEx('', PDeviceMode(nil)^, 0, 0, nil);   без переопределния. Но я раньше уже переопредил ---------- AMD Ryzen 7 7700 /ASRock B650M Pro RS /G.Skill RIPJAWS 32 ГБ /Kingston 500Gb M.2 /RTX 4060 /Samsung U28R550UQI /OLED Philips 55OLED707 /Yamaha RX-V471 + NS-555 + NS-C444 + NS-333 + YST-SW215 Всего записей: 9385 | Зарегистр. 11-05-2006 | Отправлено: 10:25 28-05-2009

YarGen Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, что-то туплю: создаю тип Код:     TTextFile = class(TObject)     ...     FHandle: THandle;     ...   public     constructor Create(const FileName:string);     ... implementation constructor TTextFile.Create(const FileName:string); begin   FHandle := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil,OPEN_ALWAYS, 0, 0); ..   вызывает Access violation .. на этой строке. что не так? Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 13:06 28-05-2009 | Исправлено: YarGen, 13:12 28-05-2009

YarGen Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM Цитата: стоп...   PrnName   а  это что за порнуха?   уже подправил а про inherited подробнее? Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 14:12 28-05-2009

V1s1ter Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YarGen Цитата: а про inherited подробнее? Служебное слово означающее вызвать такойже метод класса-предка с темиже параметрами, с которыми вызывалме метод-наследника. Код: Var   T2 = class(T1)   procedure T2.XXX(A, B: Integer); begin     inherited;   *** end; эквивалентно   Код: procedure T2.XXX(A, B: Integer); begin     T1.XXX(A, B);   *** end; Вряде случаев вызов метода-предка обязателен, в ряде недопустим, в ряде по условию и т.д. Все зависит от конкретной ситуации. В большенстве случаев, особенно в конструкторах вызов метода предка обязателен.   Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 14:52 28-05-2009

YarGen Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору akaGM просто inherited без указания метода не пропускает "Incompatible types" , inherited Create; не помогает. Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 14:58 28-05-2009

Ramazan Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YarGen Все работает: Код:    TTextFile = class(TObject)  private   FHandle: THandle;  public    constructor Create(const FileName:string);  end;   implementation   constructor TTextFile.Create(const FileName: string); begin   inherited Create;   FHandle := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,     FILE_SHARE_READ or FILE_SHARE_WRITE, nil,OPEN_ALWAYS, 0, 0); end;     ---------- Per rectum ad... Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 15:56 28-05-2009

V1s1ter Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YarGen inherited в зависимости от набора/отсутсвия параметров может писатся так:   inherited; или inherited ИмяМетода; или inherited ИмяМетода(параметры); или Result := inherited...; В двух словах все объяснили, но из уважения к окружающим можно было и пару абзацев умной книшки или спавочника почитать...   Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 16:24 28-05-2009

YarGen Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору V1s1ter с этим то понятно, этот код работает и без inherited ... что-то в основном коде, буду копать дальше. Всем спасибо, вопрос закрыт. Всего записей: 42 | Зарегистр. 19-06-2008 | Отправлено: 17:07 28-05-2009

Aleksoid1978 Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Народ, если у кого есть Windows 7 установленный, отзовитесь ???   Не могу записать в реестр в одно место. Ключ спокойно открывается, считать могу. Запись вроде как успешно проходит, не ошибок, не Exception - но данные не пишуться.   Я понимаю что сырая еще, но не на столько же  - веть regedit отлично туда пишет.   P.S. - все вопрос снят, проблема была немного в другом. ---------- AMD Ryzen 7 7700 /ASRock B650M Pro RS /G.Skill RIPJAWS 32 ГБ /Kingston 500Gb M.2 /RTX 4060 /Samsung U28R550UQI /OLED Philips 55OLED707 /Yamaha RX-V471 + NS-555 + NS-C444 + NS-333 + YST-SW215 Всего записей: 9385 | Зарегистр. 11-05-2006 | Отправлено: 06:20 29-05-2009 | Исправлено: Aleksoid1978, 08:40 29-05-2009

fcdobpiy Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору кто-нибудь сталкивался с такой вещью? на многих версиях делфи  при многократных переходах между редактором кода и дизайнером формы или при запуске программы, размер главной формы увеличивается.  постепенно так ,  в итоге не влазит на экран. очень раздражает. Всего записей: 411 | Зарегистр. 22-08-2005 | Отправлено: 09:08 01-06-2009

kveplim Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору fcdobpiy, попробуй лочить компоненты Edit->Locak Controls Всего записей: 42 | Зарегистр. 05-10-2008 | Отправлено: 11:19 01-06-2009

Страницы: 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

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

ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование