| ← Сентябрь 2005 → | ||||||
|
10
|
11
|
|||||
|---|---|---|---|---|---|---|
|
17
|
18
|
|||||
|
24
|
25
|
|||||
|
26
|
27
|
30
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi
Выпуск № 227
от 03.09.2005, 19:47
| Администратор: | Калашников О.А. |
| В рассылке: | Подписчиков: 232, Экспертов: 49 |
| В номере: | Вопросов: 4, Ответов: 18 |
Вопрос № 25483: Как при помощи компонента FTP-client из состава Indy 9 можно узнать размер отпределённого файла на FTP сервере...
Вопрос № 25490: Как в MaskEdit обработать действие после ввода данных при нажатии клавиши Enter? Во вкладке Events OnEnter обрабатывается содытие при подходе мышки....
Вопрос № 25502: Как загрузить Image нужных размеров (Width 150) и (Hidth - что получится) из Картинки не известных размеров. Сначало нужно прочесть размеры картинки (Width 1152) и (Hidth 864) , затем прямопропорционально уменьшить картинку (ширина 150 ...
Вопрос № 25504: Здравтсвуйте уважаемые эксперты!!! Мне нужно учитывать трафик, так как это делает винда XP, когда я использую библиотеку IPHLPAPI я получаю входящий и исходящий трафик но он кардинально отличается от того что показывает винда, если есть возможнос...
| Вопрос № 25.483 |
| Как при помощи компонента FTP-client из состава Indy 9 можно узнать размер отпределённого файла на FTP сервере |
| Отправлен: 29.08.2005, 11:24 Вопрос задал: Валерий Кравцов (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: sir henry Здравствуйте, Valera1981! Там есть такое свойство - Size. :) TidFTP.Size('имя_файла'); |
| Ответ отправил: sir henry (статус: Профессор) Отправлен: 29.08.2005, 11:45 |
| Отвечает: Anefedov Здравствуйте, Valera1981! Перевод хелпа Получить информацию о размере файла на FTP сервере function Size(const AFileName: String): Integer; Параметры const AFileName: String Имя файла. Возвращаемое значение Integer - Размер файла или -1 если неизвестно. Description Size is an Integer function used to retrieve file size information for the file specified in AFilename from the FTP server. |
| Ответ отправил: Anefedov (статус: 2-ой класс) Отправлен: 29.08.2005, 12:50 |
| Отвечает: Силантьев Евгений Александрович Здравствуйте, Valera1981! procedure TForm1.Button1Click(Sender: TObject); var FileSize: integer; begin FileSize:= IdFTP1.Size('Адрес файла'); end; А в чем собственно проблема то??? :0) --------- The world is mine! :) |
| Ответ отправил: Силантьев Евгений Александрович (статус: 4-ый класс) Отправлен: 29.08.2005, 14:23 |
| Отвечает: Ерёмин Андрей Здравствуйте, Valera1981! Функция idFTP.Size('имя файла') возвращает объём указанного файла на сервере. --------- Мышка побежала, xвостиком махнула - cервер упал... |
| Ответ отправил: Ерёмин Андрей (статус: Практикант) Отправлен: 30.08.2005, 08:03 |
| Вопрос № 25.490 |
| Как в MaskEdit обработать действие после ввода данных при нажатии клавиши Enter? Во вкладке Events OnEnter обрабатывается содытие при подходе мышки. |
| Отправлен: 29.08.2005, 13:23 Вопрос задал: Малярчук Андрей (статус: Посетитель) Всего ответов: 8 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: X Здравствуйте, Малярчук Андрей! Можно просто проверять в onKeyPress проверять какая клавиша нажата, и если enter, то делать то, что надо. Приложение: |
| Ответ отправил: X (статус: 8-ой класс) Отправлен: 29.08.2005, 13:36 Оценка за ответ: 5 |
| Отвечает: John Freeman Здравствуйте, Малярчук Андрей! Правильно, Help читать не пробовал? OnKeyDown а потом if key=VK_RETURN then begin // end; --------- Ik bin ulien spiegel! |
| Ответ отправил: John Freeman (статус: Профессор) Отправлен: 29.08.2005, 13:47 |
| Отвечает: newinfo2005 Здравствуйте, Малярчук Андрей! В событие OnKeyPress надо проверить какая клавиша нажлась и взависимости от клавиши делать нужные действия. --------- Хочу стать умным и...много денег и халявного инета. |
| Ответ отправил: newinfo2005 (статус: 5-ый класс) Отправлен: 29.08.2005, 13:53 |
| Отвечает: sir henry Здравствуйте, Малярчук Андрей! Событие OnEnter происходит когда Вы заходите в этот элемент, а вовсе не когда жмете на клавишу Enter. :) Для Вашего случая специально сделали события: OnKeyDown - здесь параметр KEY типа WORD, т.е. передается код клавиш, в том числе и тех, у которых нет символа (например стрелки или Enter). OnKeyPress - в параметрах этой процедуры есть KEY типа char, т.е. нажатая клавиша передается в виде символа. Для случаев, когда Вы буковки нажимаете. |
| Ответ отправил: sir henry (статус: Профессор) Отправлен: 29.08.2005, 13:58 |
| Отвечает: Силантьев Евгений Александрович Здравствуйте, Малярчук Андрей! Я предлогаяю так: procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin ShowMessage('You click Enter'); end; end; --------- The world is mine! :) |
| Ответ отправил: Силантьев Евгений Александрович (статус: 4-ый класс) Отправлен: 29.08.2005, 14:24 |
| Отвечает: Anefedov Здравствуйте, Малярчук Андрей! Вам поможет событие OnKeyPressed. procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin If ((Ord(Key))=13) then ShowMessage('Enter pressed'); end; |
| Ответ отправил: Anefedov (статус: 2-ой класс) Отправлен: 29.08.2005, 14:38 |
| Отвечает: Lector Здравствуйте, Малярчук Андрей! Вам нужно не событие onenter, а событие onkeydown. Приложение: |
| Ответ отправил: Lector (статус: 2-ой класс) Отправлен: 29.08.2005, 16:42 |
| Отвечает: Баркин Алексей Здравствуйте, Малярчук Андрей! В событии OnKeyDown проверяй if key=vk_return then // че нибуть делать |
| Ответ отправил: Баркин Алексей (статус: 1-ый класс) Отправлен: 29.08.2005, 21:34 |
| Вопрос № 25.502 |
|
Как загрузить Image нужных размеров (Width 150) и (Hidth - что получится) из Картинки не известных размеров. Сначало нужно прочесть размеры картинки (Width 1152) и (Hidth 864) , затем прямопропорционально уменьшить картинку (ширина 150 / ширина 1152 * высота 864), получили (Width 150 х Hidth112,5- округлить до целого) и увеличить если маленькая картинка, и отобразить. Подскажите как это сделать. procedure TForm1.FormCreate(Sender: TObject); begin image1.picture.loadfromfile('imgimage2.picture.loadfromfile('imgend; |
| Отправлен: 29.08.2005, 16:31 Вопрос задал: Serhik_z (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: X Здравствуйте, Serhik_z! Можно просто установить(расчитать) нужные размеры картинки и установить Image1.Stretch:=true;. См. пример. Приложение: |
| Ответ отправил: X (статус: 8-ой класс) Отправлен: 29.08.2005, 16:55 |
| Отвечает: sir henry Здравствуйте, Serhik_z! А нужно ли столько усилий прикладывать? Можно сделать проще: 1. Кладете на форму TImage нужного Вам размера; 2. Делаете TImage.Stretch:=True; И все, любая картинка вмещается в заданные Вами рамки. |
| Ответ отправил: sir henry (статус: Профессор) Отправлен: 29.08.2005, 18:31 |
| Отвечает: newinfo2005 Здравствуйте, Serhik_z! Очень интересный вопрос. Я когда делал прогу "Фотоальбом",то я и использовал пропрапациональность и увелечение. Свойства: Stretch:=true;//Картинка будет иметь размеры которые указаны в свойстах ширины //и высоты proportional:=true;//Делает картинку пропорциональной в соответствие ширины и //высоты в компоненте Image. --- Если же убрать эти свойтва то как видишь картинка помещается в своих истиных размерах.А если тебе надо узнать целое от деления,то надо записать так: 150 div 1152*864. Здесь DIV дает целый результат от деления. Вот вродебы и все. Удачи тебе. --------- Хочу стать умным и...много денег и халявного инета. |
| Ответ отправил: newinfo2005 (статус: 5-ый класс) Отправлен: 29.08.2005, 19:11 |
| Отвечает: Denisss Здравствуйте, Serhik_z! В приложении я привел метод немного отличающийся от предыдущих примеров. Он имеет некоторые преимущества: Во-первых, можно после открытия картинки сохранить ее в указанных размерах. Во-вторых, преобразуются значки (*.ico). Но есть и недостатки: Например, если необходимо обработать множество файлов и, при этом, нет необходимости в их сохранении, то процедура будет занимать некоторое время. Тогда лучше будет использовать свойства Image.Stretch и Image.Proportional = True Удачи! Приложение: |
| Ответ отправил: Denisss (статус: Студент) Отправлен: 29.08.2005, 20:23 |
| Отвечает: Баркин Алексей Здравствуйте, Serhik_z! Вариант: Можно по твоей формуле вычислить размеры, установить их Image'у и поставить у него свойство Stretch = TRUE; и получится примерно то, что хотелось. |
| Ответ отправил: Баркин Алексей (статус: 1-ый класс) Отправлен: 29.08.2005, 22:14 |
| Вопрос № 25.504 |
|
Здравтсвуйте уважаемые эксперты!!! Мне нужно учитывать трафик, так как это делает винда XP, когда я использую библиотеку IPHLPAPI я получаю входящий и исходящий трафик но он кардинально отличается от того что показывает винда, если есть возможность как то перевести этот траф в виндовский то подскажите, или приведите пример как подсчитать входящий и исходящий траф как это делает XP, к тому же нужно чтобы траф считался и под всеми виндами, не посредственно будет то подключение по диал-апу или лан соединенеие. P.S. Буду признателен за описание того что выводится при использованиии библиотеки IPHLPAPI |
| Отправлен: 29.08.2005, 16:43 Вопрос задал: Scay (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: mvp Здравствуйте, Scay! Скачайте исходники http://delphi.about.com/library/weekly/code/src112903.zip Там исходный модуль и пример применения. Как раз решит Вашу проблему. Если не получится скачать, дайте мыло - вышлю. --------- Моя совесть чиста - не бывшая в употреблении |
| Ответ отправил: mvp (статус: 4-ый класс) Отправлен: 29.08.2005, 17:05 Оценка за ответ: 4 |
© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки:
comp.soft.prog.delphiplus
Отписаться
Вспомнить пароль
| В избранное | ||
