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

Выпуск № 915
от 05.09.2007, 03:35

Вопрос № 100.201

Уважаемые эксперты. Подскажите пожалуйста, как с помощью Delphi 7 можно изменить размер (высотаи и ширина) и качество Jpeg изображения. Желательно без image и picturebox на форме. Заранее спасибо.

Отправлен: 30.08.2007, 08:03 Вопрос задал: T1000 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Denisss Здравствуйте, T1000! В приложении находится пример функции, которая выполняет обе поставленные Вами задачи. Функция возвращает True, если все удалось и False, если что-то пошло неверно. Для того, чтобы пример работал, нужно подключить модули JPEG и SysUtils (т.е. прописать в uses). Примеры использования функции: ResampleJPEG('in.jpg', 'out.jpg', 80); - Функция меняет качество с установленного на 80 ResampleJPEG('in.jpg', 'out.jpg', 95, 1024, 768); - Функция изменяет размер изображения на 1024x768 и сохраняет JPEG с качеством 95% ResampleJPEG('in.jpg', 'out.jpg'); - Функция делает копию изображения и меняет качество на 95% Удачи! Приложение: function ResampleJPEG(const inFile, outFile: TFileName; const aQuality: TJPEGQualityRange = 95; const NewWidth: Integer = 0; const NewHeight: Integer = 0): Boolean; var JPEG: TJPEGImage; BMP: TBitmap; begin Result:= FileExists(inFile); if not Result then Exit; JPEG:= TJPEGImage.Create; BMP:= TBitmap.Create; try try // Загружаем JPEG.LoadFromFile(inFile); except Result:= False; Exit; end; // Если высота и ширина не указаны, то // оставляем текущую if (NewWidth = 0) then BMP.Width:= JPEG.Width else BMP.Width:= NewWidth; if (NewHeight = 0) then BMP.Height:= JPEG.Height else BMP.Height:= NewHeight; BMP.PixelFormat:= pf24bit; // Изменяем размер with BMP.Canvas do StretchDraw(ClipRect, JPEG); // Перемещаем из Bitmap в Jpeg JPEG.Assign(BMP); // Меняем качесвто JPEG.CompressionQuality:= aQuality; JPEG.Compress; try // Сохраняем файл JPEG.SaveToFile(outFile); except Result:= False; end; finally FreeAndNil(JPEG); FreeAndNil(BMP); end; end;

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 30.08.2007, 09:53

Отвечает: Mishell Здравствуйте, T1000! смотрите пример в приложении... в процедуру передается имя файла который надо изменить, новое имя файла куда будет записана измененная картинка, размеры (w,h) и качество (q) jpeg'а q может быть от 1 до 100 Приложение: procedure ConvertJpeg(fname,newfname:string;w,h,q:integer); var jpg:TJpegImage; bmp:TBitmap; begin if not fileexists(fname) then exit; jpg:=TJpegImage.Create; bmp:=TBitmap.Create; try jpg.LoadFromFile(fname); bmp.Assign(jpg); bmp.Width:=w; bmp.Height:=h; jpg.CompressionQuality:=q; jpg.Assign(bmp2); jpg.SaveToFile(newfname); finally jpg.Free; bmp.Free; end; end;

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 30.08.2007, 10:17

Вопрос № 100.202

Зравствуйте, эксперты!! как (какими прогами и каким образом) можно шифрануть или упаковать компрессором exeшник, чтобы его практически невозможно было взломать средствами делфи?? (Слышал только про AsPack и UPX) Спасибо.

Отправлен: 30.08.2007, 08:11 Вопрос задал: Ренат Байрамгулов (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Omickron Здравствуйте, Ренат Байрамгулов! !!! Я использую PECompact. Отличный упаковщик, устанавливается в систему, прописывается в контекстное меню *.dll и *.exe файлов. Бесплатный. Если нужно - пишите на мыло. Вышлю. Примечание: PECompact бесплатен только для некоммерческого применения (для бесплатных программ). Цены на PECompact и скачать пробную версию можно на сайте: ссылка Denisss

Ответ отправил: Omickron (статус: 4-ый класс) Ответ отправлен: 30.08.2007, 08:43 Оценка за ответ: 5

Отвечает: Denisss Здравствуйте, Ренат Байрамгулов! Есть отличные бесплатные упаковщики: Yoda's Protector; GHF Protector. В дополнение, рекомендую почитать обзор нескольких упаковщиков и программ по скрытию упаковщиков здесь: ссылка 1, ссылка 2 На мой взгляд, лучший вариант - это упаковать программу с помощью UPX (ссылка), после чего спрятать из программы информацию об упаковщике (с помощью программы Stealth PE или бесплатной PeStubOEP) Удачи!

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 30.08.2007, 09:13 Оценка за ответ: 5 Комментарий оценки: Спасибо, эксперты. Теперь у меня целая коллекция упаковщиков. осталось только их протестировать.

Отвечает: Дмитрий С. Здравствуйте, Ренат Байрамгулов! Скажите, чем Вам не гравится AsPack? Там есть такая фича: он при сжатии преобразовывает код файла в двоичный, и при этом взлом такого файла становится на уровень сложнее. Но скажу Вам одну вещь - абсолютно защищённых и непроникновенных систем не существует. Везде есть небольшие баги. Их нужно только найти ;) --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 4-ый класс) Ответ отправлен: 31.08.2007, 15:27 Оценка за ответ: 5 Комментарий оценки: Благодарен!!

Вопрос № 100.224

Возникла необходимость научиться создавать программы для сети(мониторинг, настройка и т.д). Но литературы по созданию таких прог на делфи не могу найти. Подскажите где можно найти или если у кого есть по данной теме киньте на мыло. Спасибо.

Отправлен: 30.08.2007, 12:05 Вопрос задал: Diman Soldatov / DES (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Виктор Пырлик Здравствуйте, Diman Soldatov / DES! Вот несколько ссылок: «Delphi 7. Для профессионалов» М. Кэнту издательства «Питер». Там довольно хорошо изложен материал и не только по сетям. Delphi 7. Для профессионалов, М. Кэнту (электронный вариант) описание TClientSocket описание TServerSocket Windows Socket API в Delphi Также, неплохая книга «К. Джамса, К. Коуп. Программирование для Internet в среде Windows», описание идет на языке С/С++ но понятия в целом от этого не страдают, как и функции API Windows, которые можно (и нужно) использовать в Delphi. В принципе, сейчас достаточно много литературы на эту тему, но, лучше брать не общие, типа "самоучитель..." и т.д. а с целевым названием. Delphi только предоставляет интерфейсы для работы с сетевыми функциями, все они базируются на Wondows API - поэтому, суть вашего вопроса, это изучение сетевых технологий под Windows (и не только - за не большим исключением, это кроссплатформенные технологии) --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 30.08.2007, 12:36

Вопрос № 100.276

Здрасти как сделать чтоб программа ждала пока запуститься процесс notepad.exe а потом запускала exe файл . ПОЖАЛУЙСТА ПОМОГИТЕ .

Отправлен: 30.08.2007, 19:59 Вопрос задал: Василий Васильевич Сквозняков (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Уваров Андрей Александрович Здравствуйте, Василий Васильевич Сквозняков! В приложении функция для запуска файлов. Параметр Wait означает ждать ли завершения процесса. Приложение: function ExecWin( Path, name, CommandLine, CurrentDir: string; Wait: boolean ): word; var tsi: TStartupInfo; tpi: TProcessInformation; tPath, Command: PChar; CurDir: Pchar; cod: DWord; begin Result := 30; Path := path + name + ' ' + CommandLine + #00; CommandLine := CommandLine + #0; tPath := StrAlloc( 512 ); Command := StrAlloc( 512 ); CurDir := StrAlloc( 512 ); FillChar( tsi, SizeOf( TStartupInfo ), 0 ); tsi.cb := SizeOf( TStartupInfo ); tsi.dwFlags := STARTF_USESHOWWINDOW; tsi.wShowWindow := SW_SHOWMINNOACTIVE; Move( Path[ 1 ], tPath[ 0 ], Length( Path ) ); CurrentDir := CurrentDir + #0; Move( CurrentDir[ 1 ], CurDir[ 0 ], length( CurrentDir ) ); try if CreateProcess( nil, @tPath[ 0 ] {, @Command[0]}, nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, @CurDir[ 0 ], tsi, tpi ) then begin cod := WAIT_TIMEOUT; while ( cod = WAIT_TIMEOUT ) and Wait do begin cod := WaitForSingleObject( tpi.hProcess, 500 ); Application.ProcessMessages; end; result := 0; CloseHandle( tpi.hProcess ); CloseHandle( tpi.hThread ); end else result := GetLastError; finally StrDispose( Command ); StrDispose( tPath ); StrDispose( CurDir ); end; end; --------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: AvePassion@GMail.Com

Ответ отправил: Уваров Андрей Александрович (статус: Студент) Ответ отправлен: 30.08.2007, 23:11

Отвечает: Карабанов Алексей Здравствуйте, Василий Васильевич Сквозняков! Не совсем понятно, о какой программе идет речь. Если я правильно понял имеется приложение, созданное в среде Delphi, которое должно находиттся в памяти, ждать запуска notepad.exe, а затем запускать некий exe файл. В этом случае можно реализовать некоторые функции TaskManager. Схема работы такая: 1. Делаем снимок системы. 2. Из этого снимка получаем список выполняющихся процессов. 3. Проверяем в списке наличие notepad.exe. 4. В случае, если он присутствует, запускаем свой exe-файл. Снимок системы нужно делать периодически, поэтому нужно использовать таймер. Можно осуществлять мониторинг процессов с помощью функции ядра PsSetCreateProcessNotifyRoutine(), но для этого придется написать драйвер, работающий в режиме ядра. В этом случае таймер не понадобится. Но такой способ достаточно сложен, и представляет собой более трудоемкую задачу, чем та, ради которой Вы все это пишете. Теперь более конкретно. 1. Снимок системы делается с помощью функции WinAPI CreateToolHelp32Snapshot() из библиотеки TlHelp32. 2. Извлечение из снимка списка процессов. Process32First - получение первого процесса. Process32Next - в цикле получает остальные процессы. В приложении показан работающий пример, отображающий список выполняющихся процессов. В данном коде создается снимок системы, из него извлекается список выполняющихся процессов, затем имена процессов помещаются в массив. Из массива заполняется ListBox1. Для проверки примера разместите на пустой форме LIstBox, и Button. Код поместите в обработчик события OnClick кнопки. По нажатию кнопки в ListBox будет выводится список процессов Для работы примера в разделе Uses пропишите модуль TLHelp32. Данный пример поможет Вам понять, как работает описанная схема. Для вашей задачи нужет этот же код, кроме строк, касающихся ListBox. В коде примера массив заполняется именами процессов. Просматривая этот массив можно проверить наличие в нем notepad.exe Данный код нужно поместить в процедуру, которая вызывается в таймере, тогда Вы будете получать снимок системы периодически с интервалом таймера. Чтобы работа этого кода не затормаживала систему, его можно поместить в отдельный поток. Дополнительные вопросы задавайте в мини-форум. Приложение: Пример. Получить список имен выполняющихся процессов. На форме размещены компоненты ListBox и Button. Обработчик события OnClick имеет вид: Var SH :THandle; //хэндл снимка системы Num, I: Integer; //число процессов, счетчик цикла PPE: TProcessEntry32; //структура, в которую помещается информация из снимка. Pr_names: array[0..50] of string; //массив с именами процессов begin Num:=0; //сначала число процессов равно нулю. SH:=CreateToolHelp32SnapShot(Th32cs_SnapAll,0); //получаем снимок системы, параметр в скобках, означает полную информацию PPE.dwSize:=sizeOf(ProcessEntry32); //перед использованием структуры нужно в поле записать ее размер. Process32First(SH,PPE); //получаем первый процесс Pr_Names[Num]:=PPE.szExeFile; //его имя помещаем в массив While Process32Next(SH,PPE) do //получаем в цикле остальные процессы begin Num:=Num+1; Pr_names[NUm]:=PPE.szExeFile; end; ListBox1.Clear; //очищаем LIstBox For I:=0 to Num do ListBox1.Items.Add(Pr_names[i]); //заполняем LIstBox1 элементами массива. CloseHandle(SH); //освобождаем ресурс - снимок состояния системы. end; --------- Дорогу осилит идущий!

Ответ отправил: Карабанов Алексей (статус: 9-ый класс) Ответ отправлен: 30.08.2007, 23:21

Отвечает: Shurka Зрасти! Во первых это вопрос не по Delphi а по WInAPI или даже ассемблеру, но не важно. Есть два способа. Вот первый: Время от времени получаем от windы список всех процессов и смотрим есть ли там наш любимый notepad. Второй: Пишем драйвер перехвата вызовов WinAPI функций. Насчет реализации: Так как это может быть использовано для написания вирусов, то подробно объяснять не буду Про второе ничего не скажу, никогда не делал. Про первое: Вот WINAPI функции: CreateToolhelp32Snapshot Process32First Process32Next CreateProcess

Ответ отправил: Shurka (статус: 2-ой класс) Ответ отправлен: 31.08.2007, 06:46

Отвечает: W@NDeReR Здравствуйте, Василий Васильевич Сквозняков! Поместите на форму таймер и по событию onTimer все происходит. Полный пример программы в приложении: Приложение: unit Unit1; interface uses Windows, Messages,shellApi, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; runExe:Boolean; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var notepad: HWND; begin notepad:=FindWindow('notepad',nil); if (notepad<>0) and (runExe=false) then begin ShellExecute(Handle,'open','C:windowsSystem32calc.exe',nil,nil,SW_RESTORE); runExe:=true; end; if notepad=0 then runExe:=false; end; end. --------- Опыт — дитя мысли, а мысль — дитя действия. Нельзя учиться по книгам.

Ответ отправил: W@NDeReR (статус: 5-ый класс) Ответ отправлен: 31.08.2007, 14:58

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