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

Выпуск № 465
от 06.05.2006, 22:05

Вопрос № 41.750

Здравствуйте. Подскажите пожалуйста, как сделать приложение зависимым от разрешения экрана?

Отправлен: 30.04.2006, 21:55 Вопрос задала: GidraIRi (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Bochvarov NikB Здравствуйте, GidraIRi! Надеюсь, что кирилский алфавит будет тебе понятен. Мелкие процедурьи в UtilsStr и UtilsMessageE5 не будут создавать тебе проблем. Приложение: unit UtilsDisplay; interface {}function GetBitsPerPointColor: integer; {}function VideoDisplayMode_ToStr(aW, aH, aB: integer): string; {}function VideoDisplayModeCur_ToStr: string; {}function VideoDisplayMode_Check(aWmin, aHmin, aBmin: integer; flMsg: boolean): boolean; implementation uses Windows, Forms, SysUtils, UtilsStr, UtilsMessagesE5; {}function GetBitsPerPointColor: integer; var DC : HDC; begin Result := 0; DC := CreateDC('displAY', nil, nil, nil); if DC <> 0 then begin try Result := GetDeviceCaps(DC, BITSPIXEL) * GetDeviceCaps(DC, PLANES); finally DeleteDC(DC); end; end; end; {}function VideoDisplayMode_ToStr(aW, aH, aB: integer): string; begin Result := 'W'+IntToStr(aW)+' x H'+IntToStr(aH)+' x B'+IntToStr(aB); end; {}function VideoDisplayModeCur_ToStr: string; begin Result := 'W'+IntToStr(Screen.DeskTopWidth)+' x H'+IntToStr(Screen.DeskTopHeight)+' x B'+IntToStr(GetBitsPerPointColor); end; {}function VideoDisplayMode_Check(aWmin, aHmin, aBmin: integer; flMsg: boolean): boolean; var iB, iW, iH: integer; begin iB := GetBitsPerPointColor; iW := Screen.DeskTopWidth; iH := Screen.DeskTopHeight; Result := (iB>=aBmin) and (iW>=aWmin) and (iH>=aHmin); if not Result and flMsg then begin MsgDlg( 'Текущ режим на видеодисплея: ' + VideoDisplayMode_ToStr(iW, iH, iB)+#13+ 'Минималният режим на видеодисплея трябва да бъде: '+ VideoDisplayMode_ToStr(aWmin, aHmin, aBmin), 'РЕЖИМ НА ВИДЕОДИСПЛЕЯ', mb_OK+MB_ICONERROR); end; end; end.

Ответ отправил: Bochvarov NikB (статус: 8-ой класс) Ответ отправлен: 30.04.2006, 22:02 Оценка за ответ: 5 Комментарий оценки: Спасибо, все работает

Вопрос № 41.786

как использовать int 16h в delphi? пишу консольное приложение begin ... asm mov ah,00 int 16h mov key, ah end; ... end. слетает

Отправлен: 01.05.2006, 11:29 Вопрос задал: 34076 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, 34076! Такая постановка вопроса вызывает, мягко говоря, удивление. Служб, которые основываются на прерываниях, таких как были в DOS, в Windows нет. Поскольку речь идет о Delphi, то пишите Вы именно программу для Windows, несмотря на то, что она называется "консольная". Вместо 16h, что было в DOS, Windows предлагает Вам набор собственных служб для консоли. Наберите в справке для Win32 "Console Functions" и Вы получите их список. В частности для клавиатуры там есть функции: ReadConsoleInput() - считывает следующий знак из буфера ввода и удаляет его оттуда; PeekConsoleInput() - тоже самое, только знак не удаляется. Первая функция и является как раз аналогом службы 00h досовской 16h (набор служб для клавиатуры). Вторая функция - аналог службы 01h.

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

Вопрос № 41.795

Здравствуйте!!! Имеется процедура, которая рисует корабль на форме. Все точки для построения корабля рассчитываются от одной начальной (Х=0 и Y=80) (см. приложение). Требуется добавить на мачту корабля флаг РФ так чтобы он развивался как будто на него дует ветер Приложение: procedure TForm3.parohod(x,y:integer;mode:boolean); const dx=5;dy=5; var p1:array[1..7] of Tpoint; p2:array[1..8] of Tpoint; flag:array[1..5] of Tpoint; pc,bc:TColor; begin if mode=false then begin Form3.Canvas.Brush.Color:=clNavy; Form3.Canvas.Pen.Color:=clNavy; Canvas.Rectangle(x,y+1,x+17*dx,y-10*dy); Canvas.Brush.Color:=clNavy; Canvas.Pen.Color:=clNavy;http://www.ozon.ru/?partner=1849 if y-10*dy<80 then begin canvas.Brush.Color:=clskyblue; Canvas.Pen.Color:=clskyblue; Canvas.Rectangle(x,y-10*dy,x+17*dx,80); end; exit; end; with canvas do begin pc:=Pen.Color;//цвет карандаша bc:=brush.Color;//цвет заливки Pen.Color:=clBlack; brush.Color:=clWhite; //рисуем корпус корабля 1 p1[1].X:=x; p1[1].Y:=y; p1[2].X:=x; p1[2].Y:=y-2*dy; p1[3].X:=x+10*dx; p1[3].Y:=y-2*dy; p1[4].X:=x+11*dx; p1[4].Y:=y-3*dy; p1[5].X:=x+17*dx; p1[5].Y:=y-3*dy; p1[6].X:=x+14*dx; p1[6].Y:=y; p1[7].X:=x; p1[7].Y:=y; polygon(p1); //рисуем верхнюю часть корабля 2 p2[1].X:=x+3*dx; p2[1].Y:=y-2*dy; p2[2].X:=x+4*dx; p2[2].Y:=y-3*dy; p2[3].X:=x+4*dx; p2[3].Y:=y-4*dy; p2[4].X:=x+13*dx; p2[4].Y:=y-4*dy; p2[5].X:=x+13*dx; p2[5].Y:=y-3*dy; p2[6].X:=x+11*dx; p2[6].Y:=y-3*dy; p2[7].X:=x+10*dx; p2[7].Y:=y-2*dy; p2[8].X:=p2[1].X; p2[8].Y:=p2[1].Y; polygon(p2); //рисуем трубу корабля 3 rectangle(x+7*dx,y-4*dy,x+8*dx,y-7*dy); //рисуем будку 4 rectangle(x+8*dx,y-4*dy,x+11*dx,y-5*dy); //рисуем мачту 5 Moveto(x+5*dx,y-3*dy); Lineto(x+9*dx,y-3*dy); //линии для мачты 6 и 7 и линия для красоты 8 Moveto(x+10*dx,y-5*dy); Lineto(x+10*dx,y-10*dy); pen.Color:=clwhite; Moveto(x+17*dx,y-3*dy); Lineto(x+10*dx,y-10*dy); Lineto(x,y-2*dy); pen.Color:=pc; //эллюминаторы 9 и 10 Ellipse(x+11*dx,y-2*dy,x+12*dx,y-1*dy); Ellipse(x+13*dx,y-2*dy,x+14*dx,y-1*dy); //флаг pen.Color:=clRed; //for i:=1 to 10 do begin //flag[i].X:=(x+6*dx)+i; flag[i].Y:=(y-10*dy)-i;end; flag[1].X:=x+6*dx; flag[1].Y:=y-10*dy; flag[2].X:=(x+6*dx)+1; flag[2].Y:=(y-10*dy)-1; flag[3].X:=(x+6*dx)+2; flag[3].Y:=(y-10*dy)-2; flag[4].X:=(x+6*dx)+3; flag[4].Y:=(y-10*dy)-3; flag[5].X:=flag[1].X; flag[5].Y:=flag[1].Y; {flag[5].X:=x+13*dx; flag[5].Y:=y-3*dy; flag[6].X:=x+11*dx; flag[6].Y:=y-3*dy; flag[7].X:=x+10*dx; flag[7].Y:=y-2*dy; flag[8].X:=p2[1].X; flag[8].Y:=p2[1].Y;} polygon(flag); end;//with end; procedure TForm3.FormPaint(Sender: TObject); begin canvas.Pen.Color:=clskyblue; canvas.brush.Color:=clskyblue; canvas.Rectangle(0,0,clientwidth,80); //parohod(0,80,true); end;

Отправлен: 01.05.2006, 13:34 Вопрос задал: Rewer8 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, Rewer8! Я попробовала сделать так (получилось не очень красиво из-за задержки прорисовки, но если спросят, что это больше всего напоминает, то ответом будет: развевающийся флаг :)): 1. на OnTimer изменяем параметр l, который впоследствии будет отвечать за смещение синусоиды. 2. флаг рисуется: 4 синусоиды и еще одна линия - являющаяся правым краем флага. 3. закрашиваются секции флага в разные цвета. 4. флаг удаляется, удаляются линии и закраска. 5. флаг рисуется снова со смещением синусоиды. Получилось, что флаг мигает... извините, если вам не нравится этот вариант... но может еще какие идеи вам придут :) см. Приложение. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure parohod(x,y:integer;mode:boolean); private { Private declarations } public { Public declarations } end; const dx=5;dy=5; var Form1: TForm1; l: byte; implementation {$R *.dfm} procedure PaintFlag(x,y,dx,dy:integer; k: byte); var i,l: integer; begin with form1.canvas do begin pen.Color:=clblack; for i:=(x+10*dx+1) to (x+15*dx) do begin pixels[i,round(sin(i+k))+y-7*dy]:=clblack; pixels[i,round(sin(i+k))+y-8*dy]:=clblack; pixels[i,round(sin(i+k))+y-9*dy]:=clblack; pixels[i,round(sin(i+k))+y-10*dy]:=clblack; end; Moveto(x+15*dx,round(sin((x+15*dx)+k))+y-7*dy); Lineto(x+15*dx,round(sin((x+15*dx)+k))+y-10*dy); brush.color:=clred; FloodFill(x+15*dx-dx,y-8*dy+3,clblack,fsBorder); brush.color:=clblue; FloodFill(x+15*dx-dx,y-9*dy+3,clblack,fsBorder); brush.color:=clwhite; FloodFill(x+15*dx-dx,y-10*dy+3,clblack,fsBorder); end; end; procedure DeleteFlag(x,y,dx,dy:integer; k:byte); var i,l: integer; begin with form1.canvas do begin pen.Color:=clskyblue; brush.color:=clskyblue; FloodFill(x+15*dx-dx,y-8*dy+3,clblack,fsBorder); brush.color:=clskyblue; FloodFill(x+15*dx-dx,y-9*dy+3,clblack,fsBorder); brush.color:=clskyblue; FloodFill(x+15*dx-dx,y-10*dy+3,clblack,fsBorder); Moveto(x+15*dx,y-7*dy+1); Lineto(x+15*dx,y-10*dy-2); for i:=(x+10*dx+1) to (x+15*dx) do begin pixels[i,round(sin(i+k))+y-7*dy]:=clskyblue; pixels[i,round(sin(i+k))+y-8*dy]:=clskyblue; pixels[i,round(sin(i+k))+y-9*dy]:=clskyblue; pixels[i,round(sin(i+k))+y-10*dy]:=clskyblue; end; end; end; procedure TForm1.parohod(x,y:integer;mode:boolean); var p1:array[1..7] of Tpoint; p2:array[1..8] of Tpoint; flag:array[1..5] of Tpoint; pc,bc:TColor; i,k: integer; begin if mode=false then begin Form1.Canvas.Brush.Color:=clNavy; Form1.Canvas.Pen.Color:=clNavy; Canvas.Rectangle(x,y+1,x+17*dx,y-10*dy); Canvas.Brush.Color:=clNavy; Canvas.Pen.Color:=clNavy; if y-10*dy<80 then begin canvas.Brush.Color:=clskyblue; Canvas.Pen.Color:=clskyblue; Canvas.Rectangle(x,y-10*dy,x+17*dx,80); end; exit; end; with canvas do begin pc:=Pen.Color;//цвет карандаша bc:=brush.Color;//цвет заливки Pen.Color:=clBlack; brush.Color:=clWhite; //рисуем корпус корабля 1 p1[1].X:=x; p1[1].Y:=y; p1[2].X:=x; p1[2].Y:=y-2*dy; p1[3].X:=x+10*dx; p1[3].Y:=y-2*dy; p1[4].X:=x+11*dx; p1[4].Y:=y-3*dy; p1[5].X:=x+17*dx; p1[5].Y:=y-3*dy; p1[6].X:=x+14*dx; p1[6].Y:=y; p1[7].X:=x; p1[7].Y:=y; polygon(p1); //рисуем верхнюю часть корабля 2 p2[1].X:=x+3*dx; p2[1].Y:=y-2*dy; p2[2].X:=x+4*dx; p2[2].Y:=y-3*dy; p2[3].X:=x+4*dx; p2[3].Y:=y-4*dy; p2[4].X:=x+13*dx; p2[4].Y:=y-4*dy; p2[5].X:=x+13*dx; p2[5].Y:=y-3*dy; p2[6].X:=x+11*dx; p2[6].Y:=y-3*dy; p2[7].X:=x+10*dx; p2[7].Y:=y-2*dy; p2[8].X:=p2[1].X; p2[8].Y:=p2[1].Y; polygon(p2); //рисуем трубу корабля 3 rectangle(x+7*dx,y-4*dy,x+8*dx,y-7*dy); //рисуем будку 4 rectangle(x+8*dx,y-4*dy,x+11*dx,y-5*dy); //рисуем мачту 5 Moveto(x+5*dx,y-3*dy); Lineto(x+9*dx,y-3*dy); //линии для мачты 6 и 7 и линия для красоты 8 Moveto(x+10*dx,y-5*dy); Lineto(x+10*dx,y-10*dy-2); pen.Color:=clwhite; Moveto(x+17*dx,y-3*dy); Lineto(x+10*dx,y-10*dy); Moveto(x+10*dx-1,y-10*dy); Lineto(x,y-2*dy); pen.Color:=pc; //эллюминаторы 9 и 10 Ellipse(x+11*dx,y-2*dy,x+12*dx,y-1*dy); Ellipse(x+13*dx,y-2*dy,x+14*dx,y-1*dy); //флаг end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Interval:=100; canvas.Pen.Color:=clskyblue; canvas.brush.Color:=clskyblue; canvas.Rectangle(0,0,clientwidth,80); parohod(0,80,true); if l>=6 then l:=0 else inc(l); PaintFlag(0,80,dx,dy,l); DeleteFlag(0,80,dx,dy,l); end; procedure TForm1.FormCreate(Sender: TObject); begin l:=0; end; end. --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 02.05.2006, 04:38 Оценка за ответ: 5 Комментарий оценки: Очень даже красивый флаг! Спасибо!!!

Вопрос № 41.800

Каким образом можно заставить Delphi не обращать внимание на то, что я изменил в процедуре обработки события Sender с TObject на уточненный тип объекта, в моем случае - TEdit! Мне надоело при каждом пробном запуске 24 раза нажимать No, чтобы он не убрал ссылку на обработку!

Отправлен: 01.05.2006, 15:50 Вопрос задал: Дмитрий Т. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Ерёмин Андрей Здравствуйте, Дмитрий Т.! А зачем вы это делаете? Delphi так и будет всё время предупреждать об этом. Если вы хотите обращаться в этому объекту (Sender) как к TEdit, то делайте это так (пример с текстом): (Sender as TEdit).Text:='123'; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 01.05.2006, 19:17 Оценка за ответ: 5 Комментарий оценки: Благодарю за ответы! В частности данный очень, просто о такой возможности я не знал.

Вопрос № 41.812

Добрый день. С праздником. Ссылаюсь на вопрос №41659 Создаю динамически в PageControl1 закладки, в них WebBrowes: procedure TForm1.ToolButton1Click(Sender: TObject); var tab: TTabsheet; wb: TWebBrowser; s: string; begin inc (i); S := ExtractFilePath(Application.ExeName) + 'setup.html'; tab := TTabSheet.Create(PageControl1); tab.PageControl := PageControl1; tab.Caption := 'Install'; wb := TWebBrowser.Create(Form1); TWinControl(wb).Parent := tab; TWinControl(wb).name := 'wb' + inttostr(i); wb.Align := alClient; wb.Navigate(s); end; Так вот скажем создал нажимаю кнопку 10 закладок, перешел на 7-ю закладку исходя из кода: TWinControl(wb).name := 'wb' + inttostr(i); имя WebBrowser будет wb6, потому что отчет был с нуля. Мне нужно в Edit1 узнать имя WebBrowser в закладке в которой буду находится, тобишь в текущей.

Отправлен: 01.05.2006, 18:05 Вопрос задал: Maximus (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Maximus! Это можно сделать, исходя из свойства ActivePageIndex или учитывая i (если не трогать это значение): Edit1.Text:='wb'+IntToStr(PageControl1.ActivePageIndex); Либо +/- 1 к этому значению в зависимости от условий. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 01.05.2006, 19:23 Оценка за ответ: 5 Комментарий оценки: Именно то что нужно. Спасибо

Вопрос № 41.823

Мир вам, уважаемые эксперты! Вновь пришел за советом. Положим, есть программа А и программа Б. Программа А занимается сложным математическим расчетом и выдает в результате большой поток численных значений. Программа Б должна подхватывать эти цифры и исходя из них что-нибудь рисовать пользователю. Как это можно реализовать ? Наиболее критична - скорость работы программы А - желательно, что бы ей ничего не мешало. Также очень хочется рисование realtime... У меня сейчас одна идея - pipe. Т.е. вывод консольной программы А пускать на ввод программы Б (а ля unix), но не очень представляю, как это будет выглядить, и подходит ли вообще. Буду благодарен любым замечаниям или идеям. С уважением, Лука.

Отправлен: 01.05.2006, 21:34 Вопрос задал: Luka (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Jeka911 Здравствуйте, Luka! 1)Есть идея использовать потоки.. А - в поток вызываемый программой В, а по завершении вычислений - рисовать. 2)Посылать сообщения из программы А по завершении вычислений в В, например программно нажать на ней кнопку, а результаты вычислений сохранять в А и загружать в В из файла. rgds, --------- Шахтер - чемпион!!!

Ответ отправил: Jeka911 (статус: 2-ой класс) Ответ отправлен: 02.05.2006, 01:23 Оценка за ответ: 4 Комментарий оценки: Спасибо за участие, но... 1) Как я писал, хотелось бы иметь realtime, дело в том, что расчет может длиться несколько часов/дней ;) Да и зачем поток мне не ясно - ведь А всё равно запустится в своем адресном пространстве и своем потоке. Вопрос в том как данные передавать. 2) Если б можно было ждать конца расчета, то и сообщений никаких не надо - просто отслеживать когда А закончит работу. Кроме того мне не хочется завязывать в цепочку не самую быструю операцию записи на диск. Скорость выполнения *ОЧЕНЬ* критична.

Отвечает: Denisss Здравствуйте, Luka! В прикрепленном файле - пример, как можно такое сотворить. Пример написан на Delphi 7. cons - консольное приложение. wingui - GUI приложение. Запускаете wingui.exe. Автоматически запустится cons.exe. Далее все числа, что Вы будете вводить в консоль будут передаваться в оконное приложение и там отображаться. :q - выход из консольного приложения (хотя можно и просто на крестик нажать) Удачи! Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Denisss (статус: Специалист) Ответ отправлен: 02.05.2006, 17:28 Оценка за ответ: 5 Комментарий оценки: Спасибо. Пример толковый. Буду тестировать производительность. Интересно, несколько сот тысяч сообщений не уронят винду ? :/

Вопрос № 41.825

Здравствуйте эксперты!! Подскажите пожалуйста каким образом можно найти в интернете домашний компьютер по IP адресу и вообще возможно ли это? После прочтения нескольких книг, я намостырился выполнять это в локальной сети, а вот в интернете что то никак! В книжках написано что типо, если в локальной сети, то использовать clientSocket.host(типо имя компьютера), если в интернете нужно использовать IP адрес и следовательно ClientSocket.addres, а процесс тот же самый как и в локальной сети!! Но что то я ну никак не могу представить как поиск в интернете будет происходить по принципу поиска компьютера в локальной сети!!! Может я чего не так понял!??

Отправлен: 01.05.2006, 21:40 Вопрос задал: F Ruslan R (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Решетник Д Здравствуйте, F Ruslan R! Во-первых, не каждый Домашний компьютер, имеет прямой доступ в инет. в основном доступ идет через прокси-сервер на провайдере. это делает связь с таким компьютером почти невозможной. (то есть компьютер имеет только ИП адрес внутри провайдера/сети (например, 192.168.0.1), а пров берет интернет и дает его внутри своей сети на этот ИП). Поэтому для связи между компьютерами используют спец серверы, через которые эти ПК соединяются (как для ICQ, Skype).ИП адрес "в мир" есть у обладателей DSL-модемов (наверное - у меня есть), спутникового интернета. Также такой ИП можно купить за денежку (наверное у провайдера). Надеюсь я ответил на тот вопрос. --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 4-ый класс) Ответ отправлен: 02.05.2006, 19:18 Оценка за ответ: 5

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