Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2004-01-09

Re: JPEG файл в delphi

Денис пишет:

>Доброго времени суток, comp.
>
> Еще вопрос: как в Deplhi изменить качество jpeg файла, если это
> возможно?
>
>
>
>
>
>
Внимательно посмотреть на файл jpeg.pas, который идет с D3 :).

ЗЫ. Неплохо бы писать о какой делфе речь.

   2004-01-09 22:55:19 (#50757)

JPEG файл в delphi

Доброго времени суток, comp.

Еще вопрос: как в Deplhi изменить качество jpeg файла, если это
возможно?

   Денис 2004-01-09 22:08:01 (#50720)

Picture Zoom

Доброго времени суток, Все!

Не подскажет ли кто, как в Delphi, имея объект bmp 1078х678
отмасштабировать его в, скажем, 800х600?

   Денис 2004-01-09 22:08:00 (#50719)

Re: Проблема с FTP

Ваш вопрос кокраз был к стати, такие проблемы очевидно у вас не у одного.
Спасибо!

-----Original MessageFrom: Андрей [mailto:andrewk***@m*****.ru]
Sent: Friday, January 09, 2004 3:42 PM
To: comp.soft.prog.prog (2840326)
Subject: Re: Проблема с FTP

Спасибо. Всё получилось!

Original Message From: "Дима" <envoy***@m*****.ru>
To: "comp.soft.prog.prog (2664549)" <andrewk***@m*****.ru>
Sent: Friday, January 09, 2004 12:32 PM
Subject: Re: Проблема с FTP

> Привет
>
> Зарегистрировался на сайте www.amillo.net
> Закачал 2 страницы по ftp
> http://envoy.myrunet.com
> Писать надо так
> ftp://Ваш FTP логин:Ваш FTP пароль@f*****.net/
>
>
>
> Original Message > From: "Андрей" <andrewk***@m*****.ru>
> To: "comp.soft.prog.prog (2780624)" <envoy***@m*****.ru>
> Sent: Tuesday, January 06, 2004 10:08 AM
> Subject: Проблема с FTP
>
>
> > Здравствуйте.
> >
> > Я долго искал более или менее хороший бесплатный хостинг.
> > И вот вроде бы нашел! Имя ему www.amillo.net
> > На сайте хостинга зарегистрировался, получил всю необходимую
> > инфу для работы со свом сайтом и уже собрался заливать свой сайт...
> > НО не могу попасть на свой сайт по FTP. Писал в службу поддержки - не
> отвечают.
> > Плизз, если кому не трудно, то зарегистрируйтесь на сайте www.amillo.net
и
> > попробуйте зайти на него (свой сайт) через FTP. Если получится, то
> расскажите
> > как вы это сделали.
> >
> > P.S.: Извините за дебильный вопрос, просто раньше мне этого не
приходилось
> делать.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

   2004-01-09 21:56:42 (#50714)

Re: IE - SaveAs Button

> что меню : File->Save As.
>
Есть програмка (на ListSoft) QuikSaver называется. Она и добавляет свою
кнопку на тот тулбар который укажешь. Или ты имеешь в виду из своей
программы?
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

   Кузьмин Олег 2004-01-09 21:29:03 (#50684)

Re: Ловушка.

> З.Ы. че за прога?
>
ToggleMause
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

   Кузьмин Олег 2004-01-09 21:28:59 (#50683)

Шлите мылы с нормальной датой!!!

Здарова, программеры!

Обращаюсь ко всем любителям переводить время на компе!!!

Если вы переводите время, то переводите его на нормальное когда мыло пишете и
шлёте.
Неудобно же читать. У меня уже 654 письма в этом листе, удалять не хочу, а
отслеживать новые очень неудобно когда январское письмо написано в мае
этого года или июле прошлого.

PS: И не пишите чтобы я упорядочил по прочтению/не прочтению.

   Томилов Александр 2004-01-09 21:09:22 (#50673)

Re: Ловушка.

Здравствуйте, Кузьмин.

Вы писали 6 января 2004 г., 22:18:59:

КО> Кто мне расскажет как сделать ловушку для таймера?
КО> У меня есть шароварная прога которая через час работы отрубается. Я так
подозреваю,
КО> что час она отмеряет с помощью виндовского таймера (а как ещё?). Как бы мне
перехватить
КО> сообщение от таймера и убить его?

КО> P.s.: На любом языке поддерживающем вин апи.
Дебуггером найди главный цикл обработки сообщений и для сообщения
таймера отбей одну из процедур выполняющуюся при его поступлении
(экспериментально это быстрее чем раскручивать код)
З.Ы. че за прога?

   2004-01-09 20:57:14 (#50658)

Re: IP

Hello Малышев,
МГВ> Для справке: IP адрес я пытаюсь считать при событие Listen.

Буквально на этой неделе закончил проект по обмену между сервером и
клиентом через сокеты правда на VC++6.Событие Listen есть начало
отслеживания сервером попыток соединения клиентов, и если клиент не
осуществил Connect то и оопределить IP невожможно.Предлагаю определять
IP поcле события Accept

Владимир
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

   bvb 2004-01-09 20:46:45 (#50651)

Re: SQL for Delphi

Здравствуйте, Gift.

Вы писали 7 января 2004 г., 15:46:23:

G> У меня ADOQuery1 в свойстве SQL не поддержвает русские буквы, что делать?
G> И вобще как сделать чтоб SQL поддерживал русские буквы?
G> G> Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
G> Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
G> Формат "каждое письмо" :
G> mailto:comp.soft.prog.prog-normal@subscribe.ru
G> Формат "читать с веба" :
G> mailto:comp.soft.prog.prog-webonly@subscribe.ru

G> http://subscribe.ru/ mailto:ask@subscribe.ru

Если перепробовал все - попробуй F1!

   2004-01-09 20:45:11 (#50650)

API

Здравствуйте comp,
Как можно отследить запуск приложения и путь к этому приложению??
Если можно, примерчик для лучшего усвоения.
Спасибо!

   2004-01-09 19:44:36 (#50612)

Статистика запуска приложений

Здарова, программеры!

Давно интересовал вопрос статистики запуска приложений.
Методом научного тыка по папкам windows, в w9x была обнаружена папка
APPLOG, содержимое которой подозрительно напоминает эту самую статистику.
Norton speed disk использует, по моему, инфу из этой папки.
Вопрос: как мне использовать инфу из APPLOG.
PS: В win2k такой папки не обнаружено тем не менее NSD работает и
в win2k. Вопрос No2: Как получить статистику и в 2000, и как её
использовать.

   Томилов Александр 2004-01-09 19:30:08 (#50603)

Re[3]: файлы

Здарова, keel!

8 мая 2004 г., суббота, 21:57:30, ты намылил:

k> Мне нужно чтобы моя программа запускалась с винампом и тем самым
k> подсчитывала количество его запусков, вот и всё.

Вместо ветки txtfile обработай exefile:

procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry;
s:string;
begin
Reg:=TRegistry.Create; // Работа с реестром
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey('txtfile\shell\open\command',false) // Есть или нет ключ
then s:='notepad.exe %1'
else s:=Reg.ReadString('');
Reg.CloseKey;
Reg.OpenKey('txtfile\shell\open\command',true);
Reg.WriteString('OldVariable',s);
Reg.WriteString('',ParamStr(0)+' %1'); // ParamStr(0) - путь к своему EXE
файлу
s[length(s)]:='s'; //Последний символ
Label1.Caption:=Format(s,['Тута будет путь к файлу']); // Заменв %s в строке
на 'Тута будет путь к файлу'
finally
reg.Free; // Конец работы с реестром
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var s:string;
Reg:TRegistry;
begin
if ParamCount>0 then // если прога запустилась с параметром
begin
Reg:=TRegistry.Create; // Работа с реестром
try
Reg.RootKey:=HKEY_CLASSES_ROOT;
if not Reg.OpenKey('txtfile\shell\open\command',false) // Есть или
нет ключ
then s:='notepad.exe %s'
else begin
s:=Reg.ReadString('OldVariable');
s[length(s)]:='s'; //Последний символ
end;
Label1.Caption:=ParamStr(1); // Параметр - путь к файлу
if pos(Paramstr(0),s)=0 then // Если Paramstr(0) есть в Paramstr(1)
// тогда мы запускаем себя
// Пороисходит когда нажать более одного раза Button1
begin
s:=Format(s,[ParamStr(1)]); // Заменв %s в строке на первый
параметр с которым была запущена прога
WinExec(PChar(s),SW_SHOW); // Запуск блокнота
end
else Label1.Caption:=Label1.Caption+' Рекурсивно запускаем свой
EXE!!!!';
finally
reg.Free; // Конец работы с реестром
end;
end;
end;

   Томилов Александр 2004-01-09 19:11:07 (#50581)

Re[2]: TPopupMenu+Sender

Здарова, hohmasoft!

9 января 2004 г., пятница, 10:04:55, ты намылил:

hrr> событие OnPopup
hrr> procedure T_fMain.PM1Popup(Sender: TObject);
hrr> begin
hrr> if PM1.PopupComponent=TreeView1 then showmessage('TreeView1')
Гуд, работает.

   Томилов Александр 2004-01-09 19:11:07 (#50580)