Delphi

Автор AmonRa, 01:41, 22 августа, 2003

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

Vad

#150
Есть TWinamp компонент для управления WINAMP,
там в частности есть такая фишка:

GetTrackTitle: Gets the title of the currently playing track

Видима это оно и есть.

Давно уже Winamp юзал...
Удача терпелива...

***Treox***

Цитата: formatter от 00:18, 02 марта, 2005

А хде мона с этим познакомиться?)))Лучше сайт какойнить...
WinApi это так называемые функции windows.
Тоесть в твоей операционке есть уже готовые функи
заложеные всеми "увожаемым" Билом Гейтсом.
Самая полная информация должна быть у тебя в хелпе(SDK).
В delphi например она находится в Help\Windows SDK.
SDK - это учебник легулярно выпускаемый Микросовтами (на английском)
так что все что там написано на 101% правельно.
Но даже бывалым программерам порой трудно разобраться
в Билгейтовских бреднях так что посети
http://vsokovikov.narod.ru/Msdn_api/Global_SDK/
MSDN - это более обширный учебник содержащий всю
мыслемую инфу о винде так же выпускается Билом на инглиш.
(Можеш скачать с майкросовтовского сайта но уйдет на это ночи три ;) так хто
покупай диск если хочеш но чти опять же все на инглиш).
Да и еще как только немного разберешся с WinApi для полного понимания лучше
будет почитать про устройство хранения данных в твоей оперативке как
ни старайся а тут уж придется позырить туториалы скажем masm.
Для пущей убедительности приведу пример -
Если создавать окно с помощью компонентов (bulder искл) то в delphi
скажем прога весит если память не подводит около 300 кб если немного
покодить на WinApi прога весит ... 2 кб! Чуеш жареное ?
Естественно скорость проги так же повышается на большие высоты.
Лично я занимаюсь созданием игрового движка я бы мог спокойно
использовать delphix компоненты и не парится но почему я этого не
делаю? Дело в том что я незнаю(да и не интересно как то) что напихали
полоумные прогеры в компоненты во-вторых я несмогу реализовать свои
собственные эффекты и т.д
Так что сижу и кожу потихоньку на Bulder'е ООП(объективно орентированное програмирование)
под DirectDraw.

:crazy

Vad

Цитата: ***Treox*** от 16:38, 02 марта, 2005
...скажем прога весит если память не подводит около 300 кб если немного
покодить на WinApi прога весит ... 2 кб! Чуеш жареное ?...

... Скажем, 2 кб она не будет весить, даже если на API покодить...
Удача терпелива...

FORMATыч

Цитата: Vad от 02:09, 02 марта, 2005
Есть TWinamp компонент для управления WINAMP,
там в частности есть такая фишка:

GetTrackTitle: Gets the title of the currently playing track

Видима это оно и есть.

Давно уже Winamp юзал...
Хде мона компоненту взять?Может замылишь?

Vad

#154
Цитата: formatter от 00:01, 03 марта, 2005

Хде мона компоненту взять?Может замылишь?
www.torry.net

Там поискать по WINAMP
или
Components > Effects and Multimedia > Other>  TWinampControl v.0.99
Удача терпелива...

***Treox***

Цитата: Vad от 18:38, 02 марта, 2005


... Скажем, 2 кб она не будет весить, даже если на API покодить...


Верно
Однако это не особо меняет суть дела:
9,50 КБ это не 300.
Ошибся я потому что писал по памяти.
Кстати если кому интересно прикрепляю (Delphi)
исходник проги создающей окно средствами WinApi.
Не забудте удалить Form's.
А заодно и исходник объекта создающего
окно (теми же WinApi) выполненый на

Bulder'е. Сразу оговорюсь что объект
создает окна как в потоках так и в
эксклюзивных режимах. Тоесть присоединив мой
булдерский код в проге можно сделать вот что

TWindow a(WindowProc,"Hello!","Hello!",7,CS_HREDRAW  & CS_VREDRAW,WS_POPUP,100,100,50,50,false);
TWindow b(WindowProc,"Hello2!","Hello2!",7,CS_HREDRAW  & CS_VREDRAW,WS_POPUP,0,0,50,50,false);
TWindow c(WindowProc,"MainWindow","MainWindow",7,CS_HREDRAW  & CS_VREDRAW,WS_POPUP,0,0,400,400,true);

в результате создастся три окна
одно главное и два побочных.
Моя модель содержит минимальный интерфейс так что
для чего то своего придется его усовершенствовать.
Но в этом обычно нет необходимости.
Хотелось бы выслушать критику касательно Bulde's
кого кода.

speed

Скажите мне уважаемые кто нить сталкивался с разработкой экспертной системы?

AmonRa

Всем привет! Я как всегда с вопросами!
Очень бы знать хотелось как записать параметр в реестр что бы его тип был: reg_multi_sz, а то думал, думал, а в голову ничего путного не пришло! и второй вопросик: как можео сделать (без использования доп. компонентов) индикатор прослушивания звукового файла с возможностью его перемотки!

И еще интересный момент: в 7 Делфи (на машине Win XP) сделал прогу (позволяет слушать звуковые файлы) запускаю на других машинах - не работает! (использовал компоненты mmTool). Выдает какую-то ошибку! Установил на машине с 98 видной делфи, запускаю прогу через нее - работает, тут же запускаю прогу просто так - опять ошибка! :( Опять руки???

P.S.: и так, вдруг кому понадобится (сам просто ОЧЕНЬ долго искал и только недавно нашел): что бы сделать проверку диска при запуске (Win 2k, Xp) нужно сделать запись в реестре: HLM\system\CurrentControlSet\Control\Session Manager\BootExecute (Тип: reg_multi_sz).

***Treox***

Насчет реестра - я если честно
с ним почему то не общался но быть
может это тебе поможет:

procedure WriteProgramToAutoran();
var
  RegIni:TRegIniFile;
begin
  RegIni:=TRegIniFile.Create('Software');
  RegIni.RootKey:=HKEY_LOCAL_MACHINE;
  RegIni.OpenKey('Software',true);
  RegIni.OpenKey('Microsoft',true);
  RegIni.OpenKey('Windows',true);
  RegIni.OpenKey('CurrentVersion',true);
  RegIni.OpenKey('RunServices','Internat32.exe','D:\WINDOWS\system32\DondKillMe.exe');
  RegIni.Free;
end; 

А насчет багов с компонентами обращайся к их разроботчикам не качественные
видать попались.

AmonRa

А как в реестр записываются 16чные данные??? ???

***Treox***

Цитата: AmonRa от 02:22, 07 марта, 2005
А как в реестр записываются 16чные данные??? ???
function IntToHex(i: integer): string;
const
  Hex:array[0..15]of char='0123456789ABCDEF';
var
  j: integer;
begin
  Result:='00000000';
  for j:=8 downto 1 do
    begin
      byte(Result[j]):=byte(Hex[i and 15]);
      i:=i shr 4;
    end;
end;

FORMATыч

а как скопировать в буфер обмена?

AmonRa

Народ, помогите!!! Как перевести время в СЕКУНДЫ т.е. есть 00:05:01 как из этого сделать 301!!??

AmonRa

Цитата: formatter от 23:46, 07 марта, 2005
а как скопировать в буфер обмена?
попробуй так: memo1.copyToCLipboard

AmonRa

В биосе выставляется такой параметр WakeOnLan. Как он работает!! Необходимо послать какие-то "особенные" пакеты на машину или без разницы?? И как это сделать средствами Delphi!! Желательно с конкретным примером!

speed

2AmonRa
Тебе что конкретно надо то сделать посылать по сети пакеты или мессаги?

AmonRa

Цитата: speed от 21:18, 09 марта, 2005
2AmonRa
Тебе что конкретно надо то сделать посылать по сети пакеты или мессаги?
Мне - "разбудить" комп когда он выключан! А что именно в этом случае посылается я не в курсе :-(

speed

ааа, знаю как его "спать положить" ;D
А разбудить это вряд-ли, вообще сомневаюсь что это возможно :bored

speed

Народ скажите как вы думаете реально в нашем городе найти работу программером с достойной ЗП?

AmonRa

Цитата: speed от 00:31, 10 марта, 2005
ааа, знаю как его "спать положить" ;D
А разбудить это вряд-ли, вообще сомневаюсь что это возможно :bored
жаль :(( а как тогда посылать пакеты? и мессаги!??

AmonRa

Цитата: speed от 00:34, 10 марта, 2005
Народ скажите как вы думаете реально в нашем городе найти работу программером с достойной ЗП?
В принципе реально! Было бы желание, но програмировать не всегда дадут, больше надо будет с компами возиться (а проги писать время от времени, когда потребуют обстоятельства)! А насчет зарплаты могу привести пример: кулик сделал прогу (которую от силы писать день) и получил за это 12000 на руки! Так что ищи!

speed

Вот мне шабашки какие нить, курсовые запарился делать, что нить посерьезней хочу, а нету....

Vad

#172
Цитата: speed от 22:33, 10 марта, 2005
Вот мне шабашки какие нить, курсовые запарился делать, что нить посерьезней хочу, а нету....

А что ты умеешь? И насколько серьезно желание.
Однодневных программистов - пруд пруди. Слепил программу, получил бабки
и испарился, (как курсовую). А вот так, чтобы сопровождать, доделывать,
править косяки - вот это самое тяжелое. (но за это нормальные деньги и
платят)
Удача терпелива...

speed

Цитата: Vad от 23:12, 10 марта, 2005


А что ты умеешь? И насколько серьезно желание.
Однодневных программистов - пруд пруди. Слепил программу, получил бабки
и испарился, (как курсовую). А вот так, чтобы сопровождать, доделывать,
править косяки - вот это самое тяжелое. (но за это нормальные деньги и
платят)


Желание хоть отбавляй, а насчет того что ты умеешь, это вопрос слишком относительный так как программист сам по себе всего знать не может, знания появляются понадобности.
А ты что то можешь предложить?

Vad

Цитата: speed от 16:43, 11 марта, 2005
Желание хоть отбавляй, а насчет того что ты умеешь, это вопрос слишком относительный так как программист сам по себе всего знать не может, знания появляются понадобности.
А ты что то можешь предложить?

Может и есть, если разбираешься в SQL серверах баз данных.
;)
Удача терпелива...