ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
04.01.2009, 03:47
|
|
Участник форума
Регистрация: 16.11.2006
Сообщений: 230
Провел на форуме:
599789
Репутация:
227
|
|
Image1.Picture.SaveToFile('c:\1.jpg');
|
|
|
04.01.2009, 03:58
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
Сообщение от o3,14um
Image1.Picture.SaveToFile('c:\1.jpg');
Не прокатит  С таким же успехом можно сохранять:
Image1.Picture.SaveToFile('c:\1.exe');
В дельфе для этого есть спец-модуль JPEG, который неплохо бы прописать в Uses, а после добавить что то вроде:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJpegImage;
begin
jpg:=TJpegImage.Create;
jpg.Assign(image1.picture.graphic);
jpg.CompressionQuality:=значение от 1 до 100;
jpg.Compress;
jpg.SaveToFile('D:\first.jpg');
jpg.free;
end;
|
|
|
|
04.01.2009, 14:05
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Есть библиотека с которой работает моя программа, но Касперский её обнаруживает как HackTool.Win32.Hidd.b
как мне этого избежать?
исходник библиотеки
http://www.rapidshare.ru/877908
Последний раз редактировалось ZET36; 04.01.2009 в 14:19..
|
|
|
|
04.01.2009, 17:52
|
|
Новичок
Регистрация: 27.09.2007
Сообщений: 22
Провел на форуме:
10910
Репутация:
0
|
|
Как сделать проверку нескольких условий?
То есть
If StrToInt(Edit2.Text)<=16 and StrToInt(Edit2.Text)>1 then
Это, разумеется неправильно, но суть, думаю понятна  |
|
|
|
04.01.2009, 17:56
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
В скобки каждое условие
|
|
|
|
04.01.2009, 18:24
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
Провел на форуме:
613745
Репутация:
51
|
|
Код:
If (StrToInt(Edit2.Text)<=16) and (StrToInt(Edit2.Text)>1) then
|
|
|
|
04.01.2009, 19:12
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
ZET36 ты конечно извини, но иметь в руках исходник и задавать такой вопрос, это как минимум глупо, а если по теме, пропусти через обфуксатор мб поможет
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
04.01.2009, 22:51
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
А у мя тута такая трабла...
Я в веббраузере гружу пагу, в ней фреймы, мне надо получить src одной из имаг...
wb1.OleObject.document.images.length возвращает 0, т.к. нет имаг, токо фреймы
wb1.OleObject.document.frames.length возвращает 8, значет 8 фреймов
wb1.OleObject.document.frames.item(0).name возвращает имя фрейма
wb1.OleObject.document.frames.item(0).images.lengt h вызывает шибку =\
Project n.exe raised exception class EOleError with message 'Method 'images' not supported by automation object'. Process stopped. Use Step or Run to continue.
Как получить имаги фрейма?
Всё, сам нащёл ...frames.item(0).document...
Последний раз редактировалось Ponchik; 04.01.2009 в 23:54..
|
|
|
|
06.01.2009, 02:46
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Ддос и подобные темы запрещены у нас.
|
|
|
|
06.01.2009, 04:32
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
Провел на форуме:
83889
Репутация:
1
|
|
Сообщение от De-visible
Ддос и подобные темы запрещены у нас.
Извините
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
