Beiträge von rallemeister

rallemeister

GANZ LIEBEN DANK EUCH!!!! Lag daran, das ich nicht wusste, dass bei HEX2BIN da 0x weg muss!!!! FUNZT!!

rallemeister

Hallo,

jemand eine schnelle Lösung um einen String, den ich mit StringToBinary umgewandelt habe in PHP wieder "umsetzen" kann??

So wird aus "Ralf geht tanzen" -> 0x52616C6620676568742074616E7A656E

PHP also ähnlich wie...

echo unpack("n","0x52616C6620676568742074616E7A656E")

Ausgabe also dann "Ralf geht tanzen"....

ich suche jetzt seit über 4 Stunden im Netz nach einer Lösung...

Danke für die Hilfe

rallemeister

Hallo Bernd.

dass hatte ich auch schon herausgefunden, aber dann ist es nicht mehr an das Hauptfenster gebunden... Darum ging es ja...

Gruß
Ralf

rallemeister

Zitat von BugFix

Das Main-Window hat einen sehr seltsamen Style-Mix. Einige dieser Styles widersprechen sich selbst (z.B. POPUP und CAPTION).
Erstelle also das Main erst mal mit gültigem Style, vielleicht ist dein Problem dann schon gelöst.

Ich habe einfach mal alle nicht wichtigen enfernt, da diese Parameterisierenungen "geklaut" waren. Ergebniss bleibt das Gleiche! Ich glaube, das Fenster wird einfach nicht richtig als "aktiviert" markiert.

C

#include <Array.au3>
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GuiDateTimePicker.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>


Global $gDatenbankMain,$OpenDatabase


Opt("GUIOnEventMode", 1)
#Region
$gMain = GUICreate("Diluma Formular Builder V 1.0", @DesktopWidth-20, @DesktopHeight-100, 0, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "wClose")
$mFile = GUICtrlCreateMenu("&Datei")
$mDateiOeffnen = GUICtrlCreateMenuItem("&öffnen"  , $mFile)
$mDateiSpeichern = GUICtrlCreateMenuItem("&speichern"  , $mFile)
$mDateiExit = GUICtrlCreateMenuItem("&Exit" & @TAB & "         Esc", $mFile)
GUICtrlSetOnEvent(-1, "wClose")


$mFile2 = GUICtrlCreateMenu("&Datenbank")
$mDatenbankOeffnen = GUICtrlCreateMenuItem("&Anbindung setzen"  , $mFile2)
GUICtrlSetOnEvent(-1, "DatenbankOeffnen")


GUISetState(@SW_SHOW)
#EndRegion




while 1




WEnd


Func DatenbankOeffnen()
		if $OpenDatabase=1 then Return
		$gDatenbankMain = GUICreate("Datenbank Anbindung", 363, 123, 0, 0,BitOR($WS_CAPTION,$WS_CHILD,$WS_MINIMIZEBOX,$WS_SYSMENU), "", $gMain)
		GUISetOnEvent($GUI_EVENT_CLOSE, "wClose")
		$gHost = GUICtrlCreateInput("", 96, 8, 249, 21)
		$gDatenbank = GUICtrlCreateInput("", 96, 34, 121, 21)
		$gBenutzer = GUICtrlCreateInput("", 96, 60, 121, 21)
		$gPasswort = GUICtrlCreateInput("", 96, 86, 121, 21)
		$g1Label1 = GUICtrlCreateLabel("Host", 16, 10, 26, 17)
		$g1Label2 = GUICtrlCreateLabel("Datenbank", 16, 34, 57, 17)
		$g1Label3 = GUICtrlCreateLabel("Benutzername", 16, 60, 72, 17)
		$g1Label4 = GUICtrlCreateLabel("Passwort", 16, 88, 47, 17)
		$gBTestDatabase = GUICtrlCreateButton("Test", 232, 32, 113, 25)
		$gBSpeicherDatenbank = GUICtrlCreateButton("speichern", 232, 64, 113, 41)
		GUISetState(@SW_SHOW, $gDatenbankMain)








		Global $OpenDatabase=1
EndFunc




Func wClose()
	Switch @GUI_WINHANDLE ; See which GUI sent the CLOSE message
		Case $gMain
			Exit
		Case $gDatenbankMain
			GUIDelete($gDatenbankMain)
			Global $OpenDatabase=0
		EndSwitch


EndFunc

Alles anzeigen

rallemeister

Hallo,

ich habe hier ein Script in dem ein Child Window erstellt wird. Hat jemand einen Ansatz, warum die Input Felder nicht aktiviert sind??

Danke im voraus

C

#include <Array.au3>
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <GuiDateTimePicker.au3>
#include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>


Global $gDatenbankMain,$OpenDatabase


Opt("GUIOnEventMode", 1)
#Region
$gMain = GUICreate("Diluma Formular Builder V 1.0", @DesktopWidth-20, @DesktopHeight-100, 0, 0, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetOnEvent($GUI_EVENT_CLOSE, "wClose")
$mFile = GUICtrlCreateMenu("&Datei")
$mDateiOeffnen = GUICtrlCreateMenuItem("&öffnen"  , $mFile)
$mDateiSpeichern = GUICtrlCreateMenuItem("&speichern"  , $mFile)
$mDateiExit = GUICtrlCreateMenuItem("&Exit" & @TAB & "         Esc", $mFile)
GUICtrlSetOnEvent(-1, "wClose")


$mFile2 = GUICtrlCreateMenu("&Datenbank")
$mDatenbankOeffnen = GUICtrlCreateMenuItem("&Anbindung setzen"  , $mFile2)
GUICtrlSetOnEvent(-1, "DatenbankOeffnen")


GUISetState(@SW_SHOW)
#EndRegion




while 1




WEnd


Func DatenbankOeffnen()
		if $OpenDatabase=1 then Return
		$gDatenbankMain = GUICreate("Datenbank Anbindung", 363, 123, 0, 0,BitOR($WS_CAPTION,$WS_CHILD,$WS_MINIMIZEBOX,$WS_SYSMENU), "", $gMain)
		GUISetOnEvent($GUI_EVENT_CLOSE, "wClose")
		$gHost = GUICtrlCreateInput("", 96, 8, 249, 21)
		$gDatenbank = GUICtrlCreateInput("", 96, 34, 121, 21)
		$gBenutzer = GUICtrlCreateInput("", 96, 60, 121, 21)
		$gPasswort = GUICtrlCreateInput("", 96, 86, 121, 21)
		$g1Label1 = GUICtrlCreateLabel("Host", 16, 10, 26, 17)
		$g1Label2 = GUICtrlCreateLabel("Datenbank", 16, 34, 57, 17)
		$g1Label3 = GUICtrlCreateLabel("Benutzername", 16, 60, 72, 17)
		$g1Label4 = GUICtrlCreateLabel("Passwort", 16, 88, 47, 17)
		$gBTestDatabase = GUICtrlCreateButton("Test", 232, 32, 113, 25)
		$gBSpeicherDatenbank = GUICtrlCreateButton("speichern", 232, 64, 113, 41)
		GUISetState(@SW_SHOW, $gDatenbankMain)
		Global $OpenDatabase=1
EndFunc




Func wClose()
	Switch @GUI_WINHANDLE ; See which GUI sent the CLOSE message
		Case $gMain
			Exit
		Case $gDatenbankMain
			GUIDelete($gDatenbankMain)
			Global $OpenDatabase=0
		EndSwitch


EndFunc

Alles anzeigen

rallemeister

Da muss ich dann wohl erst mehr Informationen zum pacs einholen ... jemand, der sich in der Aufgabenstellung vollumpfänglich auskennt, hätte gezielt antworten können. . . Es gibt im Java Bereich eine query, welche über eine scu-Abfrage Daten bereitstellt
.. ich kümmere mich erst mal um weitere Informationen.

rallemeister

Hallo,

ich soll eine Anwendung erstellen um nach PatientenID und Studiendatum Röntgenbilder im DICOM Format aus einem PACS zu ziehen... Kann hier jemand hefen??

Gruß
Rallemeister

rallemeister

Hallo,

ich habe Probleme mit der UDF FTPEx...

nach einer Netzwerkumstellung (neue Router) funktioniert

_FTP_ListToArray2D
_FTP_ListToArray
_FTP_ListToArrayEx

nicht mehr(???) _FTP_DirGetCurrent funzt aber noch?????
$INTERNET_FLAG_NO_CACHE_WRITE ist gesetz...
Ich hab es auf 2 Rechnern intern ausprobiert... Funzt net... Auf anderen Rechner (bei einem Freund) klappen meine Anwendungen aber...

Normale FTP Programme (FileZilla) arbeiten weiterhin Fehlerfrei???!!!!

Hat jemand eine Idee dazu.

Gruß
Ralf

rallemeister

Wissen ist macht, nichts wissen macht auch nix... Ich habe die vorab nicht gefunden

rallemeister

Hallo,

nach über eine Stunde lesen krieg ich folgendes NICHT hin??? (Kaffee hab ich eigentlich genug auf...)

Neue Oulook Objekt erstellen -> Mail -> Option "DISPLAY" um ggf zu korrigieren (und das ganze mit Anhang...)

Code

#include <OutlookEX.au3>
Global $oOutlook = _OL_Open()
;===========
; Plain Text
;===========
$Attach = @ScriptDir & "\leer.pdf"
$oItem = _OL_ItemCreate($oOutlook, $olMailItem,  "",  "", "Subject=Subject for BodyFormat=Plain Text", "")
$oItem.Attachments.Add = $Attach  ;<---------------------------------------------------- [b]Ein kläglicher Versuch [/b]
$oItem.BodyFormat = $olFormatHTML
$oItem.GetInspector
$sBody = $oItem.Body
$oItem.Body = "Bla Bla" & $sBody
$oItem.Display

Alles anzeigen

Wie heit die Variable für TO/CC/BCC ???
Wie heißt der Parameter für Attachments.Add ??
Was habe ich übersehen??

Gruß
Ralf

rallemeister

Hallo,

man kann ja mit

[autoit]

$oOApp = ObjCreate("Outlook.Application")
$oOMail = $oOApp.CreateItem($olMailItem)
$MailAdresse = "info@web.de"
$MSubjct = "Ich bin die Betreffzeile"
$MBody="Bla Text Inhalt Danke "&chr(13)&"Boing Boing"
With $oOMail
.To = $MailAdresse
.Subject =$MSubjct
.Body = $MBody
.BodyFormat = $olFormatRichText
.Attachments.Add (@ScriptDir & "\Anhang.pdf")
.Importance = $olImportanceNormal
.Display
EndWith

[/autoit]

eine neue Mail unter Outlook erstellen. Hat jemand schon mal was gefunden/erstellt, wie das mit "Windows Live Mail" geht?

Gruß
Ralf

rallemeister

GREAT !

"FileSetTime"! ist es was ich brauche

Danke nochmals!

Gruß
Ralf

rallemeister

DANKE OSCAR !

... Mein Gedankenansatz war vorher falsch ->manuell setzen ist die Lösung... ABER ich habe jetzt folgendes gefunden:

Code

$hFile = _WinAPI_CreateFile(@ScriptDir & "\Bild1.jpg", 2)
    $tFile = _Date_Time_EncodeFileTime("01", "12", "2013", "10", "14", "15")
    If $hFile = 0 Then _WinAPI_ShowError("Unable to open file")
    Local $pFile = DllStructGetPtr($tFile)
   _Date_Time_SetFileTime($hFile, $pFile, $pFile, $pFile)
    _WinAPI_CloseHandle($hFile)

Funzt nur teilweise - Er schreibt Datum richtig aber als Zeit krieg ich im Explorer - rechte Mousetaste - Eigenschaften 11:14:15 (statt 10:14:15)????? Wo liegt da der Denk-Fehler?

Gruß
Ralf

rallemeister

Hallo,
ich schreibe gerade an einem Synchronisationsprogramm, womit wahlweise via Hash/MD5 oder FileTime/Size die Dateiwerte ermittle... Soweit so gut - Hash funktioniert...Jetzt habe ich folgenden Stolperstein:

Auf dem FTP Server liegt eine Datei vom 01.12.2013 -> Synchronisation sagt "Download bitte, ist nicht da..."
Nun liegt sie mit dem HEUTIGEM DATUM und Uhrzeit auf der lokalen Platte
Wenn ich nun wieder synchronisiere sagt die Software -> ist da, aber das Datum ist unterschiedlich - also laden... und morgen wieder und Übermorgen und und und...

Kann ich irgendwie bei _FTP-FileGet oder bei _FTP_ProgressDownload die Zeit Werte des Servers übernehmen?

Nur mit "größer als" zu arbeiten reicht für mein Projekt nicht... Nur MD5 möchte ich ausschalten können, da es bei großen Dateien die Ermittlung des Hashwertes teilweise zu lane dauert...

Danke für die Hilfe...

Gruß
Ralf

rallemeister

Hallo Max,

schon mal Danke!!! Mach ich mich mal dran. Die Links kenn ich schon aber das Script war glaub ich die initialzündung

Gru0
Ralf

rallemeister

Hallo,
ich möchte gerne SMS über Modem versenden und empfangen... Das klappt soweit ganz gut ABER die die Dateien werden nich im Klartext versendet und empfangen sondern im PDU Format... Ich tu mich arg schwer mit der Umwandlung von HEx in Ascii und BIN etc... etc... Hat hier schon jemand Erfahrung? Beispiele habe ich bisher nur in Java oder BASCOM gefunden, aber schreibe dazu ein AUTOIT gui, darum nützen mir die Beipiele nichts...

Gruß
Ralf

rallemeister

Hallo,

ziemlich klasse und funktional das obere Script... Ich bin AutoIt Anfänger... Wo kann ich hier wohl ein Event auf einen Item-Click abfangen??

rallemeister

War lieb gemeint...

rallemeister

Vielleicht kann jemand diese Variante gebrauchen:

Code

local $KeyVarianten ="01234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
local $pw=""
For $i = 1 To 6
$pw &= StringMid($KeyVarianten, Random(1, StringLen ( $KeyVarianten ) ),1 )
Next
MsgBox(0, "Passwort:", $pw)

Beiträge von rallemeister

StingToBinary Auslesen und Umwandeln mit PHP

StingToBinary Auslesen und Umwandeln mit PHP

Child Window& GUICTRL

Child Window& GUICTRL

Child Window& GUICTRL

DICOM Daten aus einem PACS (Picture Archiving and Communication System) ziehen mit Auto IT

DICOM Daten aus einem PACS (Picture Archiving and Communication System) ziehen mit Auto IT

_FTP_ListToArrayEx funzt nicht

OutlookEX UDF - 2019-11-30: Neue Version 1.4.0.0. freigegeben

OutlookEX UDF - 2019-11-30: Neue Version 1.4.0.0. freigegeben

Mail versandt über Windows Live Mail

_FTP_FileGet übernahme FileDatum

_FTP_FileGet übernahme FileDatum

_FTP_FileGet übernahme FileDatum

SMS Versandt über Modem - PDU -> SMS

SMS Versandt über Modem - PDU -> SMS

Listview sortieren ohne Columnclick

Passwort-Generator

Passwort-Generator