Где то давно читал.. 1) Берём твою картинку: 2) Загружаем в TImage 3) Берёшь фигуру(Shape) 4) Ставиш у неё в свойстве Mode clear 5) Накладываешь примерно на картинку и всё ) Вот тебе и примерно на кусочки
НУЖНА ПОМОЧЬ НЕМОГУ РАЗОБРАТЬСЯ выполняю вход в админку захожу вот только чтоб мне куда нить зайти в этой админке мне надо повторно выполнять вход а точнее я нажимаю на любую станичку из меню и опять мне надо выпплнить вход в одминку и я поподаю на ту страничку на которую я нажал это еще терпимо но когда на своем же сайте зарегистрироваться неможешь вот это уже бесит пож помогите решить эту проблему че за хрень с сайтом говорю сразу куки включины это не из зо браузера !!
Ребята помогите не могу разобратся как... мне нужна поддержка пхп на инди хттп сервере в делфи... если можно а если нет то каким либо способом... делаю вот что: на CommandGet пишу: procedure Form1.CommandGet(AThread: TIdPeerThread; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin IdHTTPServer.ServeFile(AThread, AResponseInfo, 'd:\Server_root\www'+ARequestInfo.Document); end; мне нужно чтобы при вводе в строке браузера http://127.0.0.1/index.php выводило полноценную пхп страницу.... где 127.0.0.1 - всмысле имя хоста
Подскажите пожалуйса, есть ли аналог stunnel на delphi, или как реализовать подобное? Заранее спасибо!
Подскажите. Как средствами Delphi подключится к интернету соединение DSL тип Brige(мост). Соединение созданно в винде пароль логин введенны и сохраненны. Как запусть его и подключится??
DimkO, можно на MouseUp прописать процедуру - а там в зависимости от X/Y выполнять разные действия. ----------------------------------------------------------- mr_walker, добавь слэш после www Code: 'd:\Server_root\www\'+ARequestInfo.Document и пропиши где-нить запуск сервера: Code: IdHTTPServer.Active:=true; и все должно заработать ----------------------------------------------------------- v1149906, во1ых помоему ты темой ошибся, во2ых по той информации что ты написал тебе никто думаю не поможет
Как в программу записать файл с изображением (При компиляции), а потом добавлять его к другим картинкам, которые выберет пользователь?
Если на Дельфях то так: 1. Создаем в блокноте файл такого содержания: HTML: IMAGE1 IMAGE <путь к изображению> и сохраняем его под именем image.rc 2. Идем в каталог с Дельфи\Bin и ищем там brcc32.exe. 3. С его помощью brcc32.exe компилим image.rc (перетягиваем image.rc на brcc32.exe). 4. Рядом с image.rc появится файл image.res. Берем его и ложим в папочку с проектом. В проекте подключаем. Code: program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} [B]{$R image.res}[/B] begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. Вот эта часть вопроса не совсе понятна, поэтому просто посмотри как сохранить эту картинку. Вот написана мной процедура для сохранения ресурсов: Code: procedure extractres(ResName, ResType, filename:string); Var ResStream: TResourceStream; Begin ResStream:=TResourceStream.Create(HInstance,pchar(ResType),pchar(ResName)); ResStream.SaveToFile(filename); ResStream.Free; End; Пример использования для вышеописанного: Code: .................. var s:string; begin s:='C:\image.jpg'; //путь для сохранения extractres('IMAGE', 'IMAGE1', s); .................. [/CODE]
у меня прописано все это... я же написал про поддержку пхп... а сервер выдает только хтмл... я же вроде понятно выразился... или то только мне так кажется
Перехват клавиратуры в сервисе Решил попробывать сделать кейлоггер. Я хочу. чтобы прога уходила в процессы. Т.е. работала как служба. поэтому я выбрал service application в delphi7. Но в сервисе нет событий клавиратуры. Я попытался ввести Hook.. но у сервиса нет переменоой onMessage в которую записывается сообщение клавиратуры. Она есть только у формы. Что делать?
Существует функция глобального события нажатой клавиши, то есть не для отдельного окна а для системы в целом. Как-то так )) Вот вам маленький пример кейлогера: Code: if GetAsyncKeyState($41)<>0 then Add('a'); Проверяем код нажатой клавиши ($41) ,если он тот, что нам нужен, то это английская буква "а". Соответственно добавим ее куда-нибудь. Функция Add('a') - самописная. Опиши подробнее, что конкретно нужно? Одну картинку на другую наклеить программно? Создать цифровую подпись? Не знаешь как добавить в ресурсы картинку? Расскажи в деталях, поможем
Мне надо склеить две картинки(в точке 0 ; высота картинки - высота копирайта), причем чтобы одна картинка (копирайт) была записана в программе
Тогда все просто. Вставляешь картинку-копирайт в ресурсы, как говорили выше (или см гугл, там этого полно). Или можешь просто положить ее на форму в Image и скрыть его от посторонних глаз. Далее нужно наложить одну картинку на другую, как я понимаю? Тогда вот примерчик небольшой. В нем картинка из Image1 накладывается в Image2 в координатах (0,0). Code: Image2.Canvas.Draw(0, 0, Image1.Picture.Graphic); Думаю это то, что нужно.
Не подскажете как сделать проверку такого вида: Code: if s:=antichat.ru then b:=forum.antichat.ru; if s:=vkontakte.ru then b:=vk.com; if s:=yandex.ru then b:=ya.ru; при этом что бы не вылетали ошибки, и при нахождении ответа, проверка прекращалась, и прога выполняла код дальше
так у тебя в коде ведь сплошные ошибки. вот переписал: Code: if s='antichat.ru' then b:='forum.antichat.ru' else if s='vkontakte.ru' then b:='vk.com' else if s='yandex.ru' then b:='ya.ru';
вот начиркал процедурку для наложения копирайтов на картинку (минус - работает только с bmp-файлами): Code: procedure CopyrightsToImage(Copyrights, Image, NewImage:string; x,y:integer; Transparent:boolean); var Image1, Image2:TImage; begin Image1:=TImage.Create(Application.Owner); Image2:=TImage.Create(Application.Owner); Image1.Picture.LoadFromFile(copyrights); Image1.Transparent:=Transparent; Image2.Picture.LoadFromFile(Image); Image2.Canvas.Draw(x, y, Image1.Picture.Graphic); Image2.Picture.SaveToFile(NewImage); Image1.Free; Image2.Free; end; Пример использования: Code: CopyrightsToImage('c:\copyrights.bmp', 'c:\Картинка.bmp', 'c:\Новая Картинка.bmp', 50, 50, true); Что значит каждый параметр: Copyrights - путь к картинке-копирайтам. Image - путь к рисунку, на который будут накладыватся копирайты. NewImage - путь к рисунку, куда сохраняется новый рисунок (с копирайтами). x,y - координаты копирайта. Transparent - прозрачность\непрозрачность копирайта.
