ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
08.01.2010, 14:29
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
DimkO, можно на MouseUp прописать процедуру - а там в зависимости от X/Y выполнять разные действия.
-----------------------------------------------------------
mr_walker, добавь слэш после www
Код:
'd:\Server_root\www\'+ARequestInfo.Document
и пропиши где-нить запуск сервера:
Код:
IdHTTPServer.Active:=true;
и все должно заработать
-----------------------------------------------------------
v1149906, во1ых помоему ты темой ошибся, во2ых по той информации что ты написал тебе никто думаю не поможет |
|
|
09.01.2010, 09:15
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Как в программу записать файл с изображением (При компиляции), а потом добавлять его к другим картинкам, которые выберет пользователь?
|
|
|
|
09.01.2010, 12:08
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
Сообщение от НTL
Как в программу записать файл с изображением (При компиляции), а потом добавлять его к другим картинкам, которые выберет пользователь?
Если на Дельфях то так:
1. Создаем в блокноте файл такого содержания:
Код HTML:
IMAGE1 IMAGE <путь к изображению>
и сохраняем его под именем image.rc
2. Идем в каталог с Дельфи\Bin и ищем там brcc32.exe.
3. С его помощью brcc32.exe компилим image.rc (перетягиваем image.rc на brcc32.exe).
4. Рядом с image.rc появится файл image.res. Берем его и ложим в папочку с проектом. В проекте подключаем.
Код:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
{$R image.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Сообщение от НTL
добавлять его к другим картинкам, которые выберет пользователь?
Вот эта часть вопроса не совсе понятна, поэтому просто посмотри как сохранить эту картинку. Вот написана мной процедура для сохранения ресурсов:
Код:
procedure extractres(ResName, ResType, filename:string);
Var ResStream: TResourceStream;
Begin
ResStream:=TResourceStream.Create(HInstance,pchar(ResType),pchar(ResName));
ResStream.SaveToFile(filename);
ResStream.Free;
End;
Пример использования для вышеописанного:
Код:
..................
var s:string;
begin
s:='C:\image.jpg'; //путь для сохранения
extractres('IMAGE', 'IMAGE1', s);
..................
[/CODE]
|
|
|
|
09.01.2010, 13:27
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
patcher, мне надо копирайт на картинку поставить...
|
|
|
|
09.01.2010, 15:49
|
|
Познающий
Регистрация: 09.08.2009
Сообщений: 39
Провел на форуме:
298385
Репутация:
75
|
|
Сообщение от Markus_13
mr_walker, добавь слэш после www
Код:
'd:\Server_root\www\'+ARequestInfo.Document
и пропиши где-нить запуск сервера:
Код:
IdHTTPServer.Active:=true;
и все должно заработать у меня прописано все это... я же написал про поддержку пхп... а сервер выдает только хтмл... я же вроде понятно выразился... или то только мне так кажется 
|
|
|
|
Перехват клавиратуры в сервисе |
09.01.2010, 16:05
|
|
Новичок
Регистрация: 25.06.2007
Сообщений: 10
Провел на форуме:
17391
Репутация:
1
|
|
Перехват клавиратуры в сервисе
Решил попробывать сделать кейлоггер. Я хочу. чтобы прога уходила в процессы.
Т.е. работала как служба. поэтому я выбрал service application в delphi7. Но в сервисе нет событий клавиратуры. Я попытался ввести Hook.. но у сервиса нет
переменоой onMessage в которую записывается сообщение клавиратуры. Она есть только у формы. Что делать?
|
|
|
|
10.01.2010, 01:35
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от rm24
Решил попробывать сделать кейлоггер. Я хочу. чтобы прога уходила в процессы.
Т.е. работала как служба. поэтому я выбрал service application в delphi7. Но в сервисе нет событий клавиратуры. Я попытался ввести Hook.. но у сервиса нет
переменоой onMessage в которую записывается сообщение клавиратуры. Она есть только у формы. Что делать?
Существует функция глобального события нажатой клавиши, то есть не для отдельного окна а для системы в целом. Как-то так ))
Вот вам маленький пример кейлогера:
Код:
if GetAsyncKeyState($41)<>0 then
Add('a');
Проверяем код нажатой клавиши ($41) ,если он тот, что нам нужен, то это английская буква "а". Соответственно добавим ее куда-нибудь. Функция Add('a') - самописная.
Сообщение от НTL
patcher, мне надо копирайт на картинку поставить...
Опиши подробнее, что конкретно нужно? Одну картинку на другую наклеить программно? Создать цифровую подпись? Не знаешь как добавить в ресурсы картинку? Расскажи в деталях, поможем 
Последний раз редактировалось =Zeus=; 10.01.2010 в 04:30..
|
|
|
|
10.01.2010, 02:53
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от =Zeus=
Опиши подробнее, что конкретно нужно? Одну картинку на другую наклеить программно? Создать цифровую подпись? Не знаешь как добавить в ресурсы картинку? Расскажи в деталях, поможем Мне надо склеить две картинки(в точке 0 ; высота картинки - высота копирайта), причем чтобы одна картинка (копирайт) была записана в программе
|
|
|
|
10.01.2010, 04:19
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от НTL
Мне надо склеить две картинки(в точке 0 ; высота картинки - высота копирайта), причем чтобы одна картинка (копирайт) была записана в программе
Тогда все просто. Вставляешь картинку-копирайт в ресурсы, как говорили выше (или см гугл, там этого полно). Или можешь просто положить ее на форму в Image и скрыть его от посторонних глаз. Далее нужно наложить одну картинку на другую, как я понимаю? Тогда вот примерчик небольшой. В нем картинка из Image1 накладывается в Image2 в координатах (0,0).
Код:
Image2.Canvas.Draw(0, 0, Image1.Picture.Graphic);
Думаю это то, что нужно.
Последний раз редактировалось =Zeus=; 10.01.2010 в 04:33..
|
|
|
|
10.01.2010, 05:21
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от =Zeus=
Тогда все просто. Вставляешь картинку-копирайт в ресурсы, как говорили выше (или см гугл, там этого полно). Или можешь просто положить ее на форму в Image и скрыть его от посторонних глаз. Далее нужно наложить одну картинку на другую, как я понимаю? Тогда вот примерчик небольшой. В нем картинка из Image1 накладывается в Image2 в координатах (0,0).
Код:
Image2.Canvas.Draw(0, 0, Image1.Picture.Graphic);
Думаю это то, что нужно. Выдает ошибку:
зы: а не используя формы и Image, а только в выйлах можно склеят?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
