Обещанный пример

← →
Dmitry S © (2008-02-07 16:54) [0]

http://argi.ru/upload/heart3-w.rar
Обещанный пример использования полупрозрачности, а также проигрывания midi, создания окон и прочего:)
Да и так может кому пригодиться. Переделаете под себя
Архив весит 225 КБ. Внутри исходник, ресурсы и скомпилиный EXE.
Чтобы компилить вложенный .RC я использовал RC.EXE от masm32.
Вопросы?

← →
Palladin © (2008-02-07 16:55) [1]

> Вопросы?

а зачем там EXE?

← →
Dmitry S © (2008-02-07 16:57) [2]

> Palladin © (07.02.08 16:55) [1]

Может кому-то лень компилить, а посмотреть хочется:)

← →
Bless © (2008-02-07 17:04) [3]

Красиво, мне понравилось, хоть я и далеко не Юлька :)

← →
Dmitry S © (2008-02-07 17:08) [4]

> Bless © (07.02.08 17:04) [3]

ты Димка :)))

← →
KSergey © (2008-02-07 17:20) [5]

Прикольно :)

← →
Dib@zol © (2008-02-07 17:29) [6]

Файл HEART3.EXE связан с отсутствующим компонентом USER32.DLL:UpdateLayeredWindow.
Йа отсталый...
:(

И ещё - мидишку лучше не в темп-файл пихать а затем мучать MCI, а просто скармливать CreateMIDIStream"y прямо из ресов (или както так, давно этим не занималсо).

← →
Dmitry S © (2008-02-07 17:33) [7]

> Dib@zol ©

А ну да... 2000/XP only (и то 2000 под сомнением), а может еще и виста.

> CreateMIDIStream"y прямо из ресов

Может найдешь примерчик?

← →
antonn (work) (2008-02-07 17:37) [8]

могу сказать, что есть у меня модуль, играющий миди из стрима, с прогрессбаром, все дела, дам как домой приду :)

← →
Черный Шаман (2008-02-07 18:09) [9]

> UpdateLayeredWindow

Очень неудобная функция - дают тебе окно и рисуй что хочешь. Окно даже WM_Paint не получает.

Вспоминаешь времена DOS и страниц в видеоадаптере VGA.

← →
Dmitry S © (2008-02-07 18:13) [10]

> antonn (work) (07.02.08 17:37) [8]

буду благодарен

> Очень неудобная функция

Все относительно. Для данной задачи - очень удобная и хорошая функция.

← →
DVM © (2008-02-07 23:20) [11]

> UpdateLayeredWindow
>
>
> Очень неудобная функция

Мне честно говоря вообще непонятно, зачем MS добавила в API функцию со столь странным поведением. Зачем эту функцию реализовали именно таким образом.

← →
ANTPro © (2008-02-08 00:23) [12]

> [11] DVM © (07.02.08 23:20)

Очередной костыль? :о)

← →
No_Dead © (2008-02-08 02:04) [13]

здорово сделано:)
а текст в ballon можно что бы считывался из файла, а не в массиве хранился внутри проги?

P.S. winapi не знаю:(

← →
Dmitry S © (2008-02-08 02:11) [14]

> можно что бы считывался из файла

Когда ты отправляешь - ты отправляешь один файл.
Максимум что можно сделать, это пихнуть его в ресурсы:)

Чтобы изменить текст надо открыть модуль WindowMessage, изменить текст и перекомпилить (у меня Delphi 7).

← →
No_Dead © (2008-02-08 02:13) [15]

> [14] Dmitry S © (08.02.08 02:11)

я нашел где это все у тебя написано))) часа полтора вожусь с файлами((((
думал в texts readln из файла и все путем будет, ан нет(((

← →
Dmitry S © (2008-02-08 02:24) [16]

Надо просто const на var заменить, и массив динамическим сделать:)

← →
No_Dead © (2008-02-08 02:46) [17]

> [16] Dmitry S © (08.02.08 02:24)

))))
вот смотри в procedure LoadWindow; записал
setlength(texts,10); assignfile(fff,"d:\te.txt"); reset(fff); i:=0; while not eof(fff) do begin readln(fff,Buf); Texts[i]:=pchar(buf); inc(i); end;
но выводится только последняя строка(((
что не так?

← →
Dmitry S © (2008-02-08 04:50) [18]

А тебе зачем?

← →
No_Dead © (2008-02-08 04:58) [19]

ну дык удобнее было б)))
на 14.02. разослать «открытку» такую просто хотел, с твоего позволенья:) а каждый раз компилитить&#133 нудно, а то только имена меняй и усе:))

ЗЫ. ты б где-нить © свой поставил в проге, мелочь а приятно:))

Вобщем меняй константы на
Var Texts:array of PChar; GoodBayText:PChar;

И в конце добавь:

var F:HFILE; B, BB:PChar; I:Integer; C, P:Cardinal; initialization F := CreateFile("message.txt", GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); C := GetFileSize(F, nil); GetMem(B, C); BB := B; ReadFile(F, B^, C, C, nil); CloseHandle(F); setLength(Texts, 0); P := 0; for I := 0 to pred(C) do begin if PChar(Integer(BB) + P)^ in [ #10, #13] then begin setLength(Texts, length(Texts) + 1); getMem(Texts[length(Texts) - 1], P + 1); ZeroMemory(Texts[length(Texts) - 1], P + 1); CopyMemory(Texts[length(Texts) - 1], BB, P); while PChar(Integer(BB) + P)^ in [ #10, #13] do begin inc(P); end; BB := PChar(Integer(BB) + P); P := 0; end else begin inc(P); end; end; GetMem(GoodBayText, P - 1); ZeroMemory(GoodBayText, P - 1); CopyMemory(GoodBayText, BB, P - 2); FreeMem(B); finalization FreeMem(GoodBayText); for I:=Low(Texts) to High(Texts) do begin FreeMem(Texts[I]); end; SetLength(Texts, 0); end.

> разослать «открытку» такую просто хотел, с твоего позволенья

отправляй:) бабник:)

> ЗЫ. ты б где-нить © свой поставил в проге, мелочь а приятно:
> ))

Я славы не ищу :) Надеюсь на честность :)

А тебе в любом случае придеться компилить:) Потому что изображение надо будет менять для каждой:)

>Dmitry S © (08.02.08 05:05)

спасибо:))
терь на одну проблему меньше:), вместо фотки авось чего-нить придумаю)))

ЗЫ. *ушел на поиски лирики*

Так старался, а радости не принесло :(

> Dmitry S © (10.02.08 16:26) [23]
> Так старался, а радости не принесло :(

Дык, радость оно ж должно через 2 дня принести только, нет разве?

> Dmitry S © (11.02.08 11:41) [25]
> > Bless © (11.02.08 10:51) [24]
>
> Уже нет. Я вот не знаю толи плакать, толи радоваться:)
>

Не знаю, есть ли повод для радости, но плакать уж точно не стоит. :)

Не быть любимым - это всего лишь неудача, не любить - вот несчастье. (Камю)

> Не знаю, есть ли повод для радости

Камень с шеи...:) Чувство радости и свободы...:)

Обещанный пример Найти похожие ветки