| |
|
|
Sato Pinto | allô
mon Program hat qui devoir à meinen Platinen Pings trop senden à déterminer quelle dans den Empfangsradius existieren. Alle qui sich annoncer, volonté dans un liste gesammelt qui später nacheinander données à cela Programme senden. quoi je besoin, ist une schicke Animmierte Graphic cela zeigt cela qui Scan Vorgang fonctionne, mais cela System pas belastet, sozusagen eingeständig fonctionne, eventuell une DLL. DLL peux je pas programmieren. Hat ou bien kennt quelqu'un so une schicke Animation qui pour cette Zweck passt et qui je pour nutzen peux?
merci
Grüsse Sato |
|
|
| |
|
|
|
| Z.B. solch Bild(il)? [...] [...] [...]
avec XProfan11 un htmlWin (z.B. sans Border) welches un .gif anzeigt ou bien un SysAnimate32-Contrôle [...] . |
|
|
| |
|
|
|
Dietmar Horn | allô Sato,
une Alternative hierfür wäre aussi qui PrfGif.dll de Andreas Miethe [...]
cet DLL ist Freeware, c'est lediglich une kostenlose Registrierung beim Autor erforderlich.
je verwende qui DLL jedenfalls volontiers. Zuletzt z.B. dans mon kleinen SkypeIcons-Progrämmchen, dans dessen Hauptfenster avec Aider cette DLL 84 Animationen gleichzeitig zappeln.
si Du animierte Gifs cherches: dans meinem XProfan-Manager sommes im Unterordner AnimGifs ca. 1350 animierte Gifs gebunkert (aussi erreichbar sur cela menu: Helfer -> Lister -> GIF-Lister). là pourrait wohl pour presque jeden Zweck quoi Passendes dabei son.
Salut Dietmar |
|
|
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 27.07.2009 ▲ |
|
|
|
|
Sato Pinto | allô
merci Euch beide
Habe qui DLL de Andreas Miethe geladen, doch malheureusement erscheint seulement cela le vide Hauptfenster, es passiert rien. Den Registrierungscode den je bekommen habe, habe dans qui variable code$ gelegt. je crois avec den geladenen Beispiel peux on eigentlich rien faux faire, ou bien funktioniert es pas sous XP Home?
Gruss Sato |
|
|
| |
|
|
|
Thomas Freier | et si du cet Beispiel verwendest? KompilierenMarqueSéparationAnimation: Bildschonschoner läuft im XProfan-Fenster
PRFellow-Vorlage
Autor: Thomas Hölzer
Bildschirmschoner läuft in einem Profan-Fenster
(wie Win 9x/NT4 - Vorschau)
Funktioniert nur mit Win32-Schonern, die dieses Feature unterstützen
Bitte erst prüfen, ob bezier.scr in WindowsSystem installiert ist
und ggf. anpassen!
1. Parameter: Bildschirmschonerdatei (mit Pfad)
2. Parameter: Handle des Ausgabefensters (muß kein Hauptfenster sein!)
Die Sleep-Pause sorgt dafür, daß der "Gastschoner" vor Beenden des
Programms sicher beendet ist, weil ansonsten Probleme auftreten können
(Schutzverletzung)
Die eingestellte Zeitspanne kann versuchsweise verringert werden.
$I Profalt.inc
Def ScrPreview(2) WinExec(Add$(Add$($(1)," /P "),Str$(%(2))),0)
Def FindWindowEx(4) !"USER32","FindWindowExA"
Def Sleep(1) !"KERNEL32","Sleep"
Beispiel
Declare t#,ende%,h&
WindowStyle $20
Window 100,100-600,400
AppendMenuBar 1,"&Beenden"
Cls 0
var static& = Control("STATIC","",$54000104,10,10,100,40,%hwnd,0,%hinstance,$0)
ScrPreview(Add$($SysPath,"sspipes.scr"),static&)
WhileNot Ende%
Waitinput
IF Menuitem(1)
Dim t#,33
String t#,0=Add$("WindowsScreenSaverClass",Chr$(0))
Let h&=FindWindowEx(%hwnd,0,t#,0)
SendMessage(h&,$2,0,0) wm_destroy, wm_close($10) geht auch
Dispose t#
Sleep(500) Eine halbe Sek. warten, bis der Schoner sicher weg ist
Let ende%=1
EndIf
Wend
|
|
|
| |
|
|
|
Sato Pinto | allô Thomas
merci, mais quoi je cherche ist oui c'est ca qui DLL de Andreas Miethe, seulement malheureusement funktioniert es pas chez mir. Habe ihn déjà kontaktiert, peut-être weiss il conseil.
Gruss Sato |
|
|
| |
|
|
|
Dietmar Horn | je programmiere trop Hause également sous XP Home. Es klappt alles wunderbar avec qui DLL.
Im cabinet habe je avec cette DLL erstellte Programme bereits de Windows 95 jusqu'à Windows 7 erfolgreich getestet.
je tippe puis, Du begehst là irgendwo une Pfadfehler, ou bien cela animierte Gif est seulement so et ist dans Wirklichkeit ne...aucune réel Gif.
Schaue Dir la fois im XProfan-Manager chez den 64 DLL cela (compilierte) Demo pour qui PrfGif.dll à. je crois, cela J'ai eu autrefois encore avec Profan² 6.6 erstellt. SkypeIcon erstellte je avec XProfan 11.2a.
si cela alles chez Dir également pas fonctionne, ensuite liegt es définitif irgendwie à Deinem calculateur.
Salut Dietmar |
|
|
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 28.07.2009 ▲ |
|
|
|
|
Sato Pinto | allô Dietmar
merci pour den Tip cela Problemm liegt dans qui la ligne KompilierenMarqueSéparationxx& = @AMShowGif(%hwnd,Add(addr(name$),1),20,20,-1,Add(Addr(Code$),1),rgb(192,192,192)) not ok
xx& = @AMShowGif(%hwnd,Add(addr(name$)-1,1),20,20,-1,Add(Addr(Code$)-1,1),rgb(192,192,192)) oke> Gruss Sato |
|
|
| |
|
|
|
Thomas Freier | Glaube, je hatte aussi einmal Probleme avec den GIFs et habe ensuite qui AVI-variante gewählt (était zum Montrer, so longtemps qui Internetverbindung bestand). qui AVI J'ai eu avec einem BMPAVI- Hilfstool erstellt. Dietmar: ist cela im PROFMAN enthalten ou bien ici encore pour trouver? KompilierenMarqueSéparationDeclare avi#
Dim avi#,255
Declare down&,Fen1&
String avi#,0="video.avi"
var hwin&=CreateWindow(%hwnd,"test",10,20,800,600)
var but1&=CreateButton(hwin&,"Suchen",10,20,80,26)
var but2&=CreateButton(hwin&,"Stop",10,60,80,26)
While 1
WaitInput
case %key=2:BREAK
If GetFocus(but1&)
down&=Control("SysAnimate32","",$50080004,400,20,1,1,hwin&,0,%hinstance,$100)
sendmessage(down&,1124,0,avi#)
ElseIf GetFocus(but2&)
DestroyWindow(down&)
SetFocus(%hwnd)
EndIf
EndWhile
DestroyWindow(down&)
Dispose avi#
Fin
|
|
|
| |
|
|
|
Dietmar Horn | encore ist cela Tool pas drin, mais beim prochain Update (voraussichtlich kommenden vendredi) wird es im Manager enthalten son. |
|
|
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 28.07.2009 ▲ |
|
|
|
|
Thomas Freier | Habe sur einer alten CD deux Versionen trouvé. Hänge vous la fois ran. et sur IrfanView qui Einzelbilder einer GIF comme BMP abzuspeichern ist oui ne...aucune Problem. |
|
|
| |
|
|
|
Rolf Koch | ensuite serait je qui einfachste Methode (bereits de iF vorgeschlagen) préférer: un rahmenloses HTML Contrôle dans qui passenden Grösse et peut-être. angepasster Hintergrundfarbe des Gifs ou bien sogar qui erstellten Html. Ist qui einfachste l'affaire et sogar avec neusten XProfanmitteln trop erreichen. |
|
|
| |
|
|