| |
|
|
Sato Pinto | Hallo
Mein Program hat die Aufgabe an meinen Platinen Pings zu senden um festzustellen welche in den Empfangsradius existieren. Alle die sich melden, werden in eine Liste gesammelt die später nacheinander Daten an das Programm senden. Was ich benötige, ist eine schicke Animmierte Graphic das zeigt das der Scan Vorgang läuft, aber das System nicht belastet, sozusagen eingeständig läuft, eventuell eine DLL. DLLs kann ich nicht programmieren. Hat oder kennt jemand so eine schicke Animation die für diesen Zweck passt und die ich dafür nutzen kann?
Danke
Grüsse Sato |
|
|
| |
|
|
|
| Z.B. solch Bild(er)? [...] [...] [...]
Mit XProfan11 ein htmlWin (z.B. ohne Border) welches ein .gif anzeigt oder ein SysAnimate32-Control [...] . |
|
|
| |
|
|
|
Dietmar Horn | Hallo Sato,
eine Alternative hierfür wäre auch die PrfGif.dll von Andreas Miethe [...]
Diese DLL ist Freeware, es ist lediglich eine kostenlose Registrierung beim Autor erforderlich.
Ich verwende die DLL jedenfalls gerne. Zuletzt z.B. in meinem kleinen SkypeIcons-Progrämmchen, in dessen Hauptfenster mit Hilfe dieser DLL 84 Animationen gleichzeitig zappeln.
Falls Du animierte Gifs suchst: In meinem XProfan-Manager sind im Unterordner AnimGifs ca. 1350 animierte Gifs gebunkert (auch erreichbar über das Menü: Helfer -> Lister -> GIF-Lister). Da dürfte wohl für fast jeden Zweck was Passendes dabei sein.
Gruß 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 | Hallo
Danke Euch beide
Habe die DLL von Andreas Miethe geladen, doch leider erscheint nur das leere Hauptfenster, es passiert nichts. Den Registrierungscode den ich bekommen habe, habe in der variabel code$ gelegt. Ich glaube mit den geladenen Beispiel kann man eigentlich nichts Falsch machen, oder funktioniert es nicht unter XP Home?
Gruss Sato |
|
|
| |
|
|
|
Thomas Freier | Und wenn du dieses Beispiel verwendest? KompilierenMarkierenSeparierenAnimation: 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 | Hallo Thomas
Danke, aber was ich suche ist genau die DLL von Andreas Miethe, nur leider funktioniert es nicht bei mir. Habe ihn schon kontaktiert, vielleicht weiss er Rat.
Gruss Sato |
|
|
| |
|
|
|
Dietmar Horn | Ich programmiere zu Hause ebenfalls unter XP Home. Es klappt alles wunderbar mit der DLL.
Im Kabinett habe ich mit dieser DLL erstellte Programme bereits von Windows 95 bis Windows 7 erfolgreich getestet.
Ich tippe darauf, Du begehst da irgendwo einen Pfadfehler, oder das animierte Gif heißt nur so und ist in Wirklichkeit kein echtes Gif.
Schaue Dir mal im XProfan-Manager bei den 64 DLLs das (compilierte) Demo für die PrfGif.dll an. Ich glaube, das hatte ich damals noch mit Profan² 6.6 erstellt. SkypeIcon erstellte ich mit XProfan 11.2a.
Falls das alles bei Dir ebenfalls nicht läuft, dann liegt es definitiv irgendwie an Deinem Rechner.
Gruß 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 | Hallo Dietmar
Danke für den Tip Das Problemm liegt in der Zeile KompilierenMarkierenSeparierenxx& = @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)) ok
Gruss Sato |
|
|
| |
|
|
|
Thomas Freier | Glaube, ich hatte auch einmal Probleme mit den GIFs und habe dann die AVI-Variante gewählt (war zum Anzeigen, so lange die Internetverbindung bestand). Die AVI hatte ich mit einem BMPAVI- Hilfstool erstellt. Dietmar: ist das im PROFMAN enthalten oder hier noch zu finden? KompilierenMarkierenSeparierenDeclare 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#
End
|
|
|
| |
|
|
|
Dietmar Horn | Noch ist das Tool nicht drin, aber beim nächsten Update (voraussichtlich kommenden Freitag) wird es im Manager enthalten sein. |
|
|
| 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 auf einer alten CD zwei Versionen gefunden. Hänge sie mal ran. Und über IrfanView die Einzelbilder einer GIF als BMP abzuspeichern ist ja kein Problem. |
|
|
| |
|
|
|
Rolf Koch | Dann würde ich die einfachste Methode (bereits von iF vorgeschlagen) vorziehen: Ein rahmenloses HTML Control in der passenden Grösse und evtl. angepasster Hintergrundfarbe des Gifs oder sogar der erstellten Html. Ist die einfachste Sache und sogar mit neusten XProfanmitteln zu erreichen. |
|
|
| |
|
|