Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
10.01.2010, 12:43
|
|
Познающий
Регистрация: 10.08.2009
Сообщений: 74
Провел на форуме:
1538500
Репутация:
69
|
|
Не подскажете как сделать проверку такого вида:
Код:
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;
при этом что бы не вылетали ошибки, и при нахождении ответа, проверка прекращалась, и прога выполняла код дальше
Последний раз редактировалось Seven[up]; 10.01.2010 в 12:49..
|
|
|
10.01.2010, 12:52
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
Сообщение от Seven[up]
Не подскажете как сделать проверку такого вида:
Код:
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;
при этом что бы не вылетали ошибки, и при нахождении ответа, проверка прекращалась, и прога выполняла код дальше так у тебя в коде ведь сплошные ошибки. вот переписал:
Код:
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';
|
|
|
|
10.01.2010, 13:11
|
|
Познающий
Регистрация: 10.08.2009
Сообщений: 74
Провел на форуме:
1538500
Репутация:
69
|
|
Сообщение от patcher
так у тебя в коде ведь сплошные ошибки. вот переписал:
Код:
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';
Спасибо, работает)
|
|
|
|
10.01.2010, 13:26
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
Сообщение от НTL
зы: а не используя формы и Image, а только в выйлах можно склеят?
вот начиркал процедурку для наложения копирайтов на картинку (минус - работает только с bmp-файлами):
Код:
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;
Пример использования:
Код:
CopyrightsToImage('c:\copyrights.bmp', 'c:\Картинка.bmp', 'c:\Новая Картинка.bmp', 50, 50, true);
Что значит каждый параметр:
Copyrights - путь к картинке-копирайтам.
Image - путь к рисунку, на который будут накладыватся копирайты.
NewImage - путь к рисунку, куда сохраняется новый рисунок (с копирайтами).
x, y - координаты копирайта.
Transparent - прозрачность\непрозрачнос ь копирайта.
|
|
|
|
10.01.2010, 13:57
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от patcher
вот начиркал процедурку для наложения копирайтов на картинку (минус - работает только с bmp-файлами):
Код:
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;
Пример использования:
Код:
CopyrightsToImage('c:\copyrights.bmp', 'c:\Картинка.bmp', 'c:\Новая Картинка.bmp', 50, 50, true);
Что значит каждый параметр:
Copyrights - путь к картинке-копирайтам.
Image - путь к рисунку, на который будут накладыватся копирайты.
NewImage - путь к рисунку, куда сохраняется новый рисунок (с копирайтами).
x, y - координаты копирайта.
Transparent - прозрачность\непрозрачнос ь копирайта. а для jpg ничего нету, а то просто вход jpg и выход jpg надо
А текст нельзя положить на картинку?
Последний раз редактировалось НTL; 10.01.2010 в 14:02..
|
|
|
|
10.01.2010, 14:07
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
Сообщение от НTL
а для jpg ничего нету, а то просто вход jpg и выход jpg надо
Можно и Jpeg:
Код:
uses ...JPEG, ExtCtrls;
|
|
|
|
10.01.2010, 14:22
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от patcher
Можно и Jpeg:
Код:
uses ...JPEG, ExtCtrls;
Это подключается когда на форму кидаешь image1
Код:
Image2.Canvas.Draw(x, y, Image1.Picture.Graphic);
Не проходит, даже с bmp
Последний раз редактировалось НTL; 10.01.2010 в 14:28..
|
|
|
|
10.01.2010, 15:18
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
дык, ты же спрашивал вроде как без фомы сделать 
ЗЫ стукни в аську вечерком (в профиле), помогу разобратся) |
|
|
|
10.01.2010, 16:06
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
и еще вопрос: как записать весь файл в строковую переменную?
|
|
|
|
10.01.2010, 16:06
|
|
Познающий
Регистрация: 10.08.2009
Сообщений: 74
Провел на форуме:
1538500
Репутация:
69
|
|
как закрыть прогу, во время выполнения цикла?:
Код:
memo1.Clear;
i:=-1;
for m:= 0 to 1000000000 do
begin
application.ProcessMessages;
I:= I+1;
memo1.Lines.Add(IntToStr(i));
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для Seven[up]](/avatars/avatar93867.jpg?1816948){kind=avatar}
![Отправить сообщение для Seven[up] с помощью ICQ](fusion/misc/im_icq.gif)
![Аватар для Seven[up]](/avatars/avatar93867.jpg?1817011){kind=avatar}
![Аватар для Seven[up]](/avatars/avatar93867.jpg?1817453){kind=avatar}
Похожие темы
Линейный вид
