| |
|
|
- Seite 1 - |
|
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 |
|
|
| |
|
|
|
| |
|
- Seite 1 - |
|
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. |
|
|
| |
|
|
| |
|
- Seite 2 - |
|
|
|
|
|
| |
|
|
|
Rolf Koch | jepp |
|
|
| |
|
|
|
Thomas Freier | Ist richtig. War noch aus der 9er Zeit und eigentlich sucht er ja:
Hat oder kennt jemand so eine schicke Animation die für diesen Zweck passt und die ich dafür nutzen kann?
Vielleicht Andreas Huhn.zip oder test-C.gif? |
|
|
| |
|
|