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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
MOO123
Ang
Вообще использовать стринг для работы с бинарным файлом - как-то очень своеобразно...
Можно сделать так:
Код:
fs := TFileStream.Create(ImagePath, fmOpenRead);
fs.Seek(18, soFromBeginning);
fs.Read(ImageWidth, 4);
fs.Read(ImageHeight, 4);
fs.Free;

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 22:17 29-05-2007 | Исправлено: RomanTim, 22:17 29-05-2007
MOO123

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

Всего записей: 27 | Зарегистр. 31-03-2007 | Отправлено: 13:56 30-05-2007
ParisKozlov

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MOO123
 
попробуй проще
может медленней и память сожрет - но точно работает
var
  BMP:TBitmap;
 
......
 
  BMP:=TBitmap.Create;
  BMP.LoadFromFile(FileName);
  Width := BMP.Width;
  Height := BMP.Height;
  BMP.Free;
 

Всего записей: 50 | Зарегистр. 27-10-2006 | Отправлено: 16:49 30-05-2007
MOO123

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

Всего записей: 27 | Зарегистр. 31-03-2007 | Отправлено: 18:08 30-05-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MOO123
не хочу влазить в чужой умный разговор... но, учтите, что если работает вариант от RomanTim, то лучше использовать его - он быстрее в десятки раз и не требует ни памяти, ни других ресурсов...  

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 20:01 30-05-2007
MOO123

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
Я уже понял, когда все пробовал версии. Такое решение мне и нужно было,

Всего записей: 27 | Зарегистр. 31-03-2007 | Отправлено: 14:18 31-05-2007
ParisKozlov

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
согласен что быстрее и памяти не жрет
 
но иногда ето не критично

Всего записей: 50 | Зарегистр. 27-10-2006 | Отправлено: 15:28 31-05-2007
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите компонент который позволял бы использовать анимационные GIF, так как при использовании RXGifAnimator + AlphaControls 5.06 наблюдаются тормоза. А если ГИФ прозрачный то Delphi вообще тихонько вылетает.

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 15:58 31-05-2007 | Исправлено: RostY, 16:13 31-05-2007
sharik88

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
здравствуйте
подскажите пожалуйста как можно скобки реализовать в калькуляторе?
у меня есть мысль сделать с помощью двух-трех констант, но тогда не имею представления как он будет синусы и косинусы считать
 
заранее благодарю

Всего записей: 1 | Зарегистр. 31-05-2007 | Отправлено: 23:02 31-05-2007
Mandor Sawall

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RostY
Anders Melander's TGIFImage?
Есть "клонинг" - http://finn.mobilixnet.dk/delphi/

Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 09:27 01-06-2007
stalker780



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Никто еще не сталкивался с отображением приложения в таскбаре в Delphi 2007?
Там появилось свойство Application.MainFormOnTaskbar
Но приложение появляется в таскбаре только после прорисовки главного окна.
Например пока у тебя запущено окно логин или сплэш и выскочила ошибка, приложение приостанавливается и его в таске нет только в Альт+Таб. Как бы вернуть старое поведение как в Delphi 7-2006?  
Задолбали запускать по 10 копий долгогрузящихся приложений

Всего записей: 216 | Зарегистр. 01-07-2003 | Отправлено: 15:41 01-06-2007
onyxhall



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Имеется такой код
 

Код:
...
TTovar:TADOTable
...
 
     TTovar.Close;
     TTovar.Tablename:='ТоварСтроительныематериалы';
     TTovar.Open;
     TTovar.Filter:='КодДоговора='+IntToStr(KodDogovora);
     TTovar.Filtered:=true;
     TTovar.DeleteRecords(arFiltered);

 
При выполнении последней строчки получаю ошибку: "Операция не допускается в данном контектсте". А хотелось бы. Подскажите пожалуйста что здесь не так.

Всего записей: 51 | Зарегистр. 06-11-2006 | Отправлено: 21:40 01-06-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
stalker780
Добавь после Application.Initialize:
Код:
 
SetWindowLong(Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
ShowWindow(Application.Handle, SW_SHOWNORMAL);


Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 22:15 01-06-2007
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как отключить Alt+Tab в Win Xp?

Всего записей: 3394 | Зарегистр. 20-05-2006 | Отправлено: 11:50 04-06-2007 | Исправлено: OOD, 14:24 04-06-2007
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Mandor Sawall
не подходит. Что-то у меня в нем Transparent не работает.
Есть еще варианты ?

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 15:34 04-06-2007
SharedNoob

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток форумчане.  
Опишу в чем собственно задача.  
   Есть потребность написать программу которая будет закрывать доступ к указанному порту кроме известных приложению IP адресов.  
   Программа будет иметь клиент-серверную систему, которую я впрочем уже реализовал. То есть, существует база данных (SQL 2000) в которой лежат данные о IP разрешенных пользователей. "Серверная" часть выполняет всего пару задач:  
1) регистрирует IP которым должен быть доступ к порту.  
2) закрывает порт для тех кого она не знает, и считает кому сколько времени осталось для работы с данным портом. Если время вышло то IP удаляется из списка известных и тоже начинает блокироватся.  
 
Клиентская часть подключается к SQL серверу и меняет свой статус как онлайн. Запускает счетчик времени на сервере. отображает сколько времени осталось пользоватся данным портом (точнее сетевому приложению работающему через данный порт).  
 
Так вот все это я написал, серверную часть,  регистрацию, клиентскую часть, счетчики и т п . Но вот не знаю КАК СДЕЛАТЬ БЛОКИРОВКУ ПОРТА ДЛЯ ВСЕХ КРОМЕ УКАЗАННЫХ IP. Помогите пожалуйста. Если Есть какие нибуть FAQ, или сылки на описание как это можно реализовать в Delphi 7, напишите пожалуйста.  
 

Всего записей: 12 | Зарегистр. 13-12-2006 | Отправлено: 17:20 04-06-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SharedNoob
Если эти порты открывает ваша программа - тогда можно. Но если закрывать порты вообще, тогда для Делфи это очень неподёмная задача. Ну если только не управлять каким-нибуть фаерволом

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 21:08 04-06-2007
Tantos



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OdesitVadim, вполне подъемная. Outpost у него сразу не получится, естесственно, но... Презерватив для Windows

----------
Чем больше узнаю людей, тем больше люблю компьютеры.

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 06:43 05-06-2007
SharedNoob

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как не крути должен быть мапинг порта. То есть к примеру, порт, который слушает мое сетевое приложение 45901. Далее я хочу открыть какой нить свой порт, ну к примеру 5555, пустить клиентов сетевого приложения через этот порт, причем те кому можно достучатся до этого порта будут перенаправлены на 45901. Нашел кое какие компоненты для мапинга портов в indy project. Как сделать перехват ума не приложу.
 
Добавлено:
2Tantos
ссылочка немного не правильная была, не сразу дошло исправить  
 
http://forum.ru-board.com/www.xakep.ru/magazine/xA/068/098/1.asp
 
Добавлено:
2Tantos
Большое спасибо нашел там практически все что нужно !

Всего записей: 12 | Зарегистр. 13-12-2006 | Отправлено: 08:33 05-06-2007
Mandor Sawall

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RostY
Ну, есть еще GraphicEx на http://www.soft-gems.net/
Но вы уверени, что ваш GIF правилен? Я не помню, что бы были какие-то проблемы с Transparent на TGIFImage...

Всего записей: 119 | Зарегистр. 20-03-2003 | Отправлено: 09:37 05-06-2007
   

Страницы: 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 (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru