www.ClickEXE.de Click.EXE - In 5 Minuten zum eigenen Programm!
cX5 Zahnräder Jetzt neu: click.EXE 5.0 - Hier klicken für weitere Informationen cX5 Zahnräder
Start Einloggen Einloggen Die Mitglieder Das Foren-Team Suchfunktion
30889 Posts & 5499 Themen in 34 Foren
Benutzername/Passwort:
  Login speichern
Forenübersicht » Andere Versionen und Sprachen » Click.EXE und VB-Script » Bild convertieren per VBS??

vorheriges Thema   nächstes Thema
3 Posts in diesem Thema (offen)
Seiten (1): (1)
Autor
Beitrag
Adonis ist offline Adonis  
Bild convertieren per VBS??
727 Beiträge - click.EXE - Meister
Adonis`s alternatives Ego
Hallo

Ich habe das hier gefunden:

http://www.devtrain.de/artikel_685.aspx

oder das hier:

' File Name:BmpToJpg.vbs
Const xlHtml = 44: Dim Args, pPath, file, fso, f
Set Args = WScript.Arguments
If Args.Count <> 1 Then WScript.Quit
If LCase(Right(Args(0), 4)) <> ".bmp" Then WScript.Quit

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(Args(0))
file = f.name
pPath = left(Args(0),Len(Args(0)) - len(file))

With CreateObject("Excel.Application")
With .Workbooks.Add(1)
With .ActiveSheet
.Pictures.Insert(Args(0)): .Shapes(1).Cut
.PasteSpecial "Picture (JPEG)"
End With
.SaveAs pPath & "Temporary.htm", xlHtml: .Close False
End With
.Quit
End With

With CreateObject("Scripting.FileSystemObject")
.CopyFile pPath & "Temporary_filesimage001.jpg", _
Replace(Args(0), ".bmp", ".jpg", 1, -1, 1)
.DeleteFile pPath & "Temporary.htm"
.DeleteFolder pPath & "Temporary_files", True
End With


Mein VBS ist = Null
Also würde ich mich über eure hilfe dies bezüglich sehr freuen.

Vieleicht könnte man ja damit was anfangen um bmp zu jpg oder gif zu convertieren..

Was ich auch mir gedacht habe ob es nicht eine Möglichkeit gebe über DDE auf MS Paint zu kommunizieren um eine bmp zu jpg png gif zu konvertieren.

Adonis


Der Post wurde 1 mal editiert, zuletzt von Adonis am 30.06.2006 - 17:17.
Beitrag vom 30.06.2006 - 17:15
Diesen Beitrag melden   nach weiteren Posts von Adonis suchen Adonis`s Profil ansehen Adonis eine Kurznachricht senden Adonis zu deinen Freunden hinzufügen zum Anfang der Seite
Tobi2006 ist offline Tobi2006  
RE: Bild convertieren per VBS??
4 Beiträge - 2-Tasten-am-Tag-Tipper
Hallo Adonis

Weiss zwar nicht was du damit machen willst aber versuch mal das.
http://jansfreeware.com/jfobjects.htm
Eine FreewareDLL um Bilder von BMP in JPG zu konvertieren.

Gruess Tobi
Beitrag vom 13.08.2006 - 15:53
Diesen Beitrag melden   nach weiteren Posts von Tobi2006 suchen Tobi2006`s Profil ansehen Tobi2006 eine E-Mail senden Tobi2006 eine Kurznachricht senden Tobi2006 zu deinen Freunden hinzufügen zum Anfang der Seite
Rolf ist offline Rolf  
Themenicon    Grafik DLL
53 Beiträge - Fortgeschrittener Clicker
also ich hab mir die DLL runtergeladen und registriert aber nicht mit regwiz32 sondern mit dem Regutili von http://www.hahnas.de/index.aspx?req=dl funktioniert per Drag&Drop ist bequemer.
Also das Teil funktioniert einwandfrei der autor liefert ja auch noch ein VB Skript mit.
ich habs mal abgeändert du brauchst es nur anzupassen
--------------------------------------------------------------------
Dim infile, outfile, Anzeige
infile = ("C:TempProbe.jpg")
outfile = ("C:TempProbe.bmp")
'ebensogut können hier CX Variablen verwendet werden
'Die MsgBox ist optional muß nicht sein

'Anzeige = Anzeige &"Quelldatei = "& infile &" Zieldatei = "& outfile
Anzeige = Anzeige &" Quelldatei = "& infile
Anzeige = Anzeige & vbCrLf
Anzeige = Anzeige &" Zieldatei = "& outfile

msgbox Anzeige ,0+64, "Graphik - Converter " & outfile


set conv=createobject("janGraphics.Compendium")
m=conv.convert(infile,outfile)
if m<>"" then
msgbox(m)
end if
'----------------------------------------------------------

'Wert: Funktion
'0: OK
'1: OK , Abbrechen
'2: Abbrechen , Wiederholen, Ignorieren
'3: Ja , Nein, Abbrechen
'4: Ja , Nein
'5: Wiederholen , Abbrechen

'+

'Wert: Funktion
'16: Stop Symbol
'32: Fragezeichen Symbol
'48: Ausrufezeichen Symbol
'64: Info Symbol

viel Spaß Rolf
Beitrag vom 03.10.2006 - 17:34
Diesen Beitrag melden   nach weiteren Posts von Rolf suchen Rolf`s Profil ansehen Rolf eine E-Mail senden Rolf eine Kurznachricht senden Rolf zu deinen Freunden hinzufügen zum Anfang der Seite
Baumstruktur - Signaturen anzeigen
Seiten (1): (1)
vorheriges Thema   nächstes Thema

Gehe zu:  
Es ist / sind gerade keine registrierte(r) Benutzer und 248 Gäste online. Neuester Benutzer: Volker58
Alles gute zum Geburtstag    Wir gratulieren ganz herzlich zum Geburtstag:
dsoxygen (39), herby471 (68)
aktive Themen der letzten 48 Stunden - Top-User
0
0

www.ClickEXE.de © 2021
Seite in 0.30550 sec generiert