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

Выпуск № 990
от 26.11.2007, 23:05

Вопрос № 110.335

Помогите пожалуйста, как сделать чтоб в приложении загружался фрейм с url страницей.(Чтоб внутри программы открывалась интернет страница.) И чтоб она менялась на другую из списка через какоето время. Буду очень благодарен.

Отправлен: 20.11.2007, 23:18 Вопрос задал: sergesus (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 9)

Отвечает: PavelGM Здравствуйте, sergesus! Использовать компонент WebBrowser с палитры компонентов. P.S. Вряд ли в 10-й версии он исчез, хотя кто знает. Если его вдруг нет, можно импортировать ActiveX от Microsoft - кажется Internet Controls называется.

Ответ отправил: PavelGM (статус: Студент) Ответ отправлен: 21.11.2007, 10:26 Оценка за ответ: 4 Комментарий оценки: Спасибо.

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, sergesus! Используйте компонент TWebBrowser на вкладке Internet. WebBrowser1.Navigate('ссылка'); а обновлять ссылку можно, например, с помощью компонента TTimer

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 8-ой класс) Ответ отправлен: 21.11.2007, 12:55 Оценка за ответ: 5 Комментарий оценки: Спасибо большое, только не понял как делать чтоб страници перезагружались на другие. И можно ли сделать чтоб сбоку нельзя было двигать страницу за "брусок ", чтоб она четко на месте стояла. И как сделать тоб он во время загрузки выдовал что страница грузится, а если не загрузилась, выдавло проблемы с загрузкой. Можно ли сделать так, чтобы я мог довать новое значение url страници удаленно. Например из другой программы. Пример: Я с самго начала в программе дал значение url yandex.ru; после этого я дал программу другу. Но теперь я хочу чтоб программа выдавала страницу Ramblera.ru; у меня есть связь с ним только через интернет соединение. как подать запрос программе на изменение url адреса. За ответ оценка 5.

Вопрос № 110.359

Почему в Delphi7 при запуске файла связаного с стандартным Windows приложением (Блокнотом, WMP-ом, explorer'ом) приложения запускаются в фоновом режиме (видно только в процессах в диспетчере задач).

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

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Максим! Не знаю, причем тут Delphi.... но попробую ответить. Обычно такое случается, когда приложение уже висит в памяти... возможно из-за некорректного завершения... (очень часто случается при отладке программ, некорректно работающих программах)

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 8-ой класс) Ответ отправлен: 21.11.2007, 12:45 Оценка за ответ: 3 Комментарий оценки: Delphi при том что через Мой Компьютер или Total commander всё запускается нормально. И приложение не висит в памяти (Я всё проверил).

Вопрос № 110.400

Здравствуйте! Скажите, пожалуйста. как перенести текст из memo1 в memo2(а может что другое использовать?) со смещением букв на определённое кол-во символов? Т.е. например, если смещение на 3 то а=г, б=д, и т.д.

Отправлен: 21.11.2007, 14:33 Вопрос задал: Vic (статус: 10-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Degtyarev Anton Здравствуйте, Vic! Используйте перебор из одного листа по строкам затем каждую букву из строки переводите в ASCII и увеличивайте на нужное вам число, после проделваете обратную операцию Приложение: var c : char; o : integer; s,s1 : string; i,j : integer; begin for i := 0 to memo1.Lines.Count-1 do begin s := memo1.Lines[i]; for j := 1 to length(s) do begin c := s[j]; o := ord(c)+3; c := chr(o); s1 := s1+c; end; memo2.Lines.Add(s1); s1 := ''; end; end; --------- Сколько волка не корми, а слон всё равно толще

Ответ отправил: Degtyarev Anton (статус: 2-ой класс) Ответ отправлен: 21.11.2007, 15:02

Отвечает: Dragon Здравствуйте, Vic! см приложение. xr_num:=2; - смещение на 2 Приложение: procedure TForm1.Button1Click(Sender: TObject); var xr:String; xr_num:Integer; i:Integer; begin xr_num:=2; for i:=1 to Length(Memo1.Text) do begin xr:=xr+Chr(Ord(Memo1.text[i]) xor xr_num); end; Memo2.Text:=xr; end;

Ответ отправил: Dragon (статус: 3-ий класс) Ответ отправлен: 21.11.2007, 15:29

Отвечает: Виктор Пырлик Здравствуйте, Vic! В целом, реализация данного алгоритма зависит от того, какие условия вы ставите на выходные данные. Если это «газетный текст», т.е. данные могут быть распечатаны, это одно, если достаточно электронной формы – другое. В приложении я дал код для печатной формы. А уж изменить алгоритм не составит труда, если понадобится :) Приложение: procedure TForm1.Button1Click(Sender: TObject); var i,len:integer; s,s2:String; ch:char; begin s2 := ''; s := Memo1.Text; len := Length(s); for i:=1 to len -1 do begin if(IsCharAlphaNumeric(s[i])) then begin ch := chr((ord(s[i])+3)); while ( not IsCharAlphaNumeric(ch)) do ch := chr((ord(ch)+3)); s2 := s2 + ch; end else s2 := s2 + s[i]; end; Memo2.Text := Trim(s2); end; --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Специалист) Ответ отправлен: 21.11.2007, 19:46

Вопрос № 110.401

Здравствуйте ! Подскажите пожалуйста, как сделать, чтобы в объекте Дельфи "Edit" конкретных размеров производилось центрирование введенного текста, если текст меньше длины объекта "Edit"? Свойство "Edit.AutoSize" должно быть в False. Благодарю за ответ. Геннадий.

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

Отвечает: Mishell Здравствуйте, Geb2003! придется создать новый компонент на основе TEdit - см. пример в приложении Приложение: TMyEdit = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; end; procedure TMyEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_CENTER; end;

Ответ отправил: Mishell (статус: 7-ой класс) Ответ отправлен: 21.11.2007, 15:13

Вопрос № 110.412

Добрый день, Разрабатывая приложение в среде Delphi, я столкнулся со следующей проблемой, связанной с OLE-автоматизацией. Возможно ли вставить лист Excel в документ Word с дальнейшей его заполненением при помощи Delphi ? Если это возможно, то как указать местоположение листа в документе Word? Заранее спасибо. Войтеховский Алексей

Отправлен: 21.11.2007, 16:01 Вопрос задал: Войтеховский Алексей (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Архангельский Андрей Германович Здравствуйте, Войтеховский Алексей! Не думаю что это возможно и нужно. Лист Excel вставленный в Word, обращается к нему по OLE. В описании OLE я не нашел каскадных операций, т.е. Delphi->Excel->Word Кроме того использование OLE требует наличие соответствующего приложения и соответствующей версии у конечного пользователя, что далеко не всегда так. --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 21.11.2007, 16:11 Оценка за ответ: 4 Комментарий оценки: Спасибо за ваше мнение, но основным вопросом является как задать положение листа Excel в документе Word.

Вопрос № 110.421

Извините если было, пишу в первый раз Вопрос такой в ListBox есть набор полей некоторые нужно другим шрифтом вывести( в идеале еще и с картинкой вначале) в MSDN нашел только как изменить цвет под текстом. Прочитав про RichEdit понял что вроде как подходит и он вместо ListBox только как узнать на какую строчку пользователь кликнул (аналог ListBox->ItemIndex) Заранее благодарен

Отправлен: 21.11.2007, 17:11 Вопрос задал: Simakov Leonid V (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Mishell Здравствуйте, Simakov Leonid V! в этом случае больше подойдет TListView

Ответ отправил: Mishell (статус: 7-ой класс) Ответ отправлен: 21.11.2007, 17:36 Оценка за ответ: 5 Комментарий оценки: Да, спасибо попробую вечером.

Отвечает: PavelGM Здравствуйте, Simakov Leonid V! У RichEdit есть свойство CaretPos : TPoint - текущая позиция каретки - не поможет? У ListBox можно написать свой DrawItem и рисовать что угодно - и картинки и шрифты менять и размер итемов. В какой-то из версий Дельфи вроде был пример про вывод списка шрифтов каждый своим шрифтом (даже если там ComboBox, техника все равно подойдет). А вообще выше вам дали тоже правильный совет - TListView с установленным стилем vsReport - вполне заменяет ListBox.

Ответ отправил: PavelGM (статус: Студент) Ответ отправлен: 21.11.2007, 17:48 Оценка за ответ: 5 Комментарий оценки: >У RichEdit есть свойство CaretPos : TPoint - текущая позиция каретки - не поможет? Да, именно это и хотелось узнать =) Но за другие варианты ответа конечно спасибо.

Отвечает: Маренич Владимир Здравствуйте, Simakov Leonid V! Поскольку нет оценок предыдущим ответам, то предлагаю свой вариант на основе стандартного TListBox: Устанавиливаем свойство ListBox1.Style:=lbOwnerDrawFixed В обработчике ListBox1.OnDrawItem рисуем чего хотим :) (Control as TListBox).Canvas - соотв. канва ListBox'а Index - соотв. индекс рисуемого элемента Rect - координаты элемента относительно State - состояние элемента (см. TOwnerDrawState) Получится что-то на подобии приложения (надо подгонять под свои размеры и цвета)... Приложение: procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin if (Index<0) or (Index>ListBox1.Items.Count) then begin ListBox1.Canvas.Brush.Color:=clMoneyGreen; ListBox1.Canvas.FillRect(Rect); exit; end; if odFocused in State then begin ListBox1.Canvas.Brush.Color:=clMoneyGreen; ListBox1.Canvas.Font.Color:=clBlack; ListBox1.Canvas.FillRect(Classes.Rect(Rect.Left, Rect.Top, Rect.Left+20, Rect.Bottom)); inc(Rect.Left, 20); ListBox1.Canvas.Brush.Color:=clNavy; ListBox1.Canvas.Font.Color:=clWhite; ListBox1.Canvas.FillRect(Rect); end else begin ListBox1.Canvas.Brush.Color:=clMoneyGreen; ListBox1.Canvas.Font.Color:=clBlack; ListBox1.Canvas.FillRect(Rect); inc(Rect.Left, 20); end; ImageList1.Draw(ListBox1.Canvas, Rect.Left-19, Rect.Top+2, Index); ListBox1.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,ListBox1.Items[Index]); end;

Ответ отправил: Маренич Владимир (статус: Студент) Ответ отправлен: 22.11.2007, 00:35 Оценка за ответ: 5 Комментарий оценки: самый оригинальный ответ пожалуй =) спасибо за участие. код посмотрю когда будет время.

Вопрос № 110.436

Здравствуйте,пишу в Delphi 10,задание следующие: "Даны натуральные числа n, a1, ….. an. Определить количество членов последовательности ak, удовлетворяющих следующим условиям: в последовательности получить сумму членов, принадлежащих отрезку от 3 до 7, а также число таких членов ". Написал на С++,но надо написать в Делфи,помогите пожалуйста.

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

Отвечает: Виктор Пырлик Здравствуйте, Arias! Вот код на Delphi, в приложении. Приложение: var m:array[0..8]of integer = (3,6,1,4,3,7,5,6,4); function Fun( mas:array of integer; n:integer; var p:integer):integer; var i,Sum:integer; begin p:= 0; for i:= 0 to n do begin if((mas[i] > 3)and (mas[i]< 7)) then begin Sum := Sum + mas[i]; inc(p); end; end; result := Sum; end; --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Специалист) Ответ отправлен: 22.11.2007, 19:06 Оценка за ответ: 5

Вопрос № 110.445

прива всем профи от нубаса , народ подскажите где можно скачать руководство по использованию (кароч научица) делфи ?зарание спасиб.

Отправлен: 21.11.2007, 20:41 Вопрос задал: Максим Львови Костюхин (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Djec Здравствуйте, Максим Львови Костюхин! Очень хорошая книга по Delphi - это "Библия Delphi" М. Фленова. Скачать ее можете на его сайте. http:\vr-online.ru Хотя, сейчас там только 3 главы, так что скачать ее целиком можно из http://file010.mylivepage.com/chunk10/3764/410/Delphi%20библия%20.rar или Но на сайт советую зайти, очень много мануалов. Еще один неплохой сайт с большой электронной библиотекой: http://delphimaster.ru/ --------- "Если ты что-то делаешь, делай это хорошо. если же ты не можешь или не хочешь делать хорошо, лчуше совсем не делай" Л.Н.Толстой"

Ответ отправил: Djec (статус: 4-ый класс) Ответ отправлен: 21.11.2007, 23:30

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.64 от 24.11.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru