Beiträge von IcemanSLF

Hallo E.
Ich bastel gerade an einem Script, welches mehrere JPGs zu nem Avi machen soll.
Verzeichnis lesen und Dateinamen erzeugen ist kein Problem.

Ich bastel mit Hilfe deines Beispiels. Wie lade ich das Bild vor deiner Zeile:

_AVIComp_WriteFrame($tAVI)

Ich bekomm das mit "_GDIPlus_ImageLoadFromFile" irgendwie nicht hin, kannst du mir helfen?

Ingolf

Danke @BugFix
Ich habe es dahingehend mal getestet und es scheint das Problem zu lösen.

Da ich im richtigen Programm die Funktion nur alle 5 Minuten aufrufe, habe ich das Shutdown immerwieder ausgeführt, das werde ich nun sein lassen:

#include <GdiPlus.au3>


Local $iSnapshotMinute = @MIN
Local $hImage, $hImageScaled
Local $sCLSID


OnAutoItExitRegister ("_Exit")


_GDIPlus_Startup()


While True
   If $iSnapshotMinute <> @MIN Then


	  $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Testbild\Testbild.jpg")
	  $sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
	  $hImageScaled = _GDIPlus_ImageResize($hImage, 256, 192) ;resize image
	  _GDIPlus_ImageSaveToFileEx($hImageScaled, @ScriptDir & "\Testbild\Testbild_klein.jpg", $sCLSID)
	  _GDIPlus_ImageDispose($hImage)
	  _GDIPlus_ImageDispose($hImageScaled)


	  $iSnapshotMinute = @MIN
	  Sleep((60 - Number(@SEC)) * 1000)
   Else
	  sleep(10000)
   EndIf
WEnd


Func _Exit()
   _GDIPlus_Shutdown()
EndFunc

Den Befehl OnAutoItExitRegister kannte ich bis jetzt noch nicht, danke.

Was passiert, wenn das Programm abstürzt oder durch den Taskmanager beendet wird.
Da wird OnAutoItExitRegister nicht ausgeführt und der Shutdown natürlich auch nicht.
Kann das nachteilige Folgen haben?
Wie wichtig ist der Shutdown von GDIPlus?

Ingolf

Hallo

Ein Programm vonn mir läuft 24 Stunden / 7Tage.
Nun Habe ich festgestellt, dass es im Arbeitsspeicher immer größer wird.

Ich habe es auf den Teil mit GDIPlus eingegrenzt.

Hier habe ich diesen Programmteil zum testen vereinfacht:

#include <GdiPlus.au3>
Local $iSnapshotMinute = @MIN
Local $hImage, $hImageScaled
Local $sCLSID
While True
   If $iSnapshotMinute <> @MIN Then
	  _GDIPlus_Startup()
	  $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Testbild\Testbild.jpg")
	  $sCLSID = _GDIPlus_EncodersGetCLSID("JPG")
	  $hImageScaled = _GDIPlus_ImageResize($hImage, 256, 192) ;resize image
	  _GDIPlus_ImageSaveToFileEx($hImageScaled, @ScriptDir & "\Testbild\Testbild_klein.jpg", $sCLSID)
	  _GDIPlus_ImageDispose($hImage)
	  _GDIPlus_ImageDispose($hImageScaled)
	  _GDIPlus_Shutdown()
	  $iSnapshotMinute = @MIN
	  Sleep((60 - Number(@SEC)) * 1000)
   Else
	  sleep(10000)
   EndIf
WEnd

Was übersehe ich da, warum braucht das Programm immer mehr Arbeitsspeicher?

Ich hoffe, mir kann jemand helfen.
Ingolf

Notizen aus Powerpoint lesen

Ich versuche seit einer Weile Notizen aus einer laufenden PowerPount-Präsentation(PPT2003) zu lesen, scheitere aber.

Code:

#include <GUIConstants.au3> 
$app = ObjCreate("PowerPoint.application") 
$app.SlideShowWindows(1).View.GotoSlide ("2") 
MsgBox (0, "Notiz der aktuellen Folie", $app.SlideShowWindows(1).View.Slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange)

Die Zeile "$app.SlideShowWindows(1).View.GotoSlide ("2") " funktioniert tadelos, doch die nächste erzeugt eine Box ohne Inhalt.

Wenn ich "SlideShowWindows(1).View.Slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange" in einem Exel Makro ausführe funktioniert es,

Weiß jemand, warum das im Autoit nicht geht?