 |
|
04.01.2009, 03:47
|
|
Участник форума
Регистрация: 16.11.2006
Сообщений: 230
С нами:
10254549
Репутация:
227
|
|
Image1.Picture.SaveToFile('c:\1.jpg');
|
|
|
04.01.2009, 03:58
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
С нами:
9937288
Репутация:
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
С нами:
9785147
Репутация:
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
С нами:
9800811
Репутация:
0
|
|
Как сделать проверку нескольких условий?
То есть
If StrToInt(Edit2.Text)<=16 and StrToInt(Edit2.Text)>1 then
Это, разумеется неправильно, но суть, думаю понятна  |
|
|
|
04.01.2009, 17:56
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
С нами:
9436571
Репутация:
110
|
|
В скобки каждое условие
|
|
|
|
04.01.2009, 18:24
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
С нами:
9577084
Репутация:
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
С нами:
10653446
Репутация:
836
|
|
ZET36 ты конечно извини, но иметь в руках исходник и задавать такой вопрос, это как минимум глупо, а если по теме, пропусти через обфуксатор мб поможет
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
04.01.2009, 22:51
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
С нами:
10892546
Репутация:
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
С нами:
9655526
Репутация:
1821
|
|
Ддос и подобные темы запрещены у нас.
|
|
|
|
06.01.2009, 04:32
|
|
Познающий
Регистрация: 29.12.2008
Сообщений: 45
С нами:
9140640
Репутация:
1
|
|
Сообщение от De-visible
Ддос и подобные темы запрещены у нас.
Извините
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
