Beiträge von mcbaldrian

mcbaldrian

Weist du was Peter,

genau wegen solchen Leuten wir dir ist es mir eigentlich zu Blöde in einem Forum eine Frage zu stellen.

Es kommt nur Bla Bla Bla wie hast du schon gegoogelt....

Von mir aus kann mann meinen Post schließen. Ich finde schon eine Lösung.

Wenn ich mein Problem schlecht beschrieben habe warum fragt du nicht einfach oder ignorierte den Post einfach aber nein

es ist mal wieder einer da der Blöd daherreden muss sowas kotzt mich an.

Wenns was intelligent dazu beizutragen hast gerne ....... ansonsten schnauze

schönen tag noch

mcbaldrian

Hallo Peter

sorry die Formulierung meiner Sätze nicht deinen gehobenen Ansprüchen entsprechend sind.

Ich würde dich bitte immer schön höflich zu bleiben und wenn es dich stört einfach mein geschriebenes Ignorieren.

Du musst ja nicht antworten.

mcbaldrian

Servus ( $ProgPath = StringTrimRight(@ScriptDir,"8") ) da kürze ich den Pfad nur.

Der Prozess QueueWatch.exe wird gestartet nur ohne GUI.

Das ist nur der obere Teil

C

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ld_favicon.ico
#AutoIt3Wrapper_Outfile=QueueWatch.exe
#AutoIt3Wrapper_Res_Comment=QueueWatch 
#AutoIt3Wrapper_Res_Description=QueueWatch
#AutoIt3Wrapper_Res_Fileversion=2.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Include <WinAPI.au3>
#include <File.au3>
#include <array.au3>
#include <string.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <TabConstants.au3>
#include <ComboConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <OutlookEx.au3>


If _Singleton("Skript", 1) = 0 Then Exit

;Versioncheck
$version="2.0.0 vom 03.04.2018"

TraySetIcon("Engine.ico", 1)
$ininameos = StringSplit(@ScriptName, ".", 1)
$ininame = $ininameos[1]

Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE)
Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_GRIDLINES,  $LVS_EX_DOUBLEBUFFER); $LVS_EX_CHECKBOXES ist eine Checkbox

;SQL USer
$scIP = IniRead(@ScriptDir & "\" & $ininameos[1] & ".ini", "sqlcon", "sqlserver", "127.0.0.1")
$scDB = IniRead(@ScriptDir & "\" & $ininameos[1] & ".ini", "sqlcon", "sqldb", "Log")
$scUser = IniRead(@ScriptDir & "\" & $ininameos[1] & ".ini", "sqlcon", "sqluser", "user")
$debug=IniRead(@ScriptDir & "\" & $ininameos[1] & ".ini", "sqlcon", "debug", "0")
$sqlmaxrow=IniRead(@ScriptDir & "\" & $ininameos[1] & ".ini", "sqlcon", "maxrow", "5000")

;SQL Password entschlüsseln
$sqlpass = IniRead(@ScriptDir & "\" & $ininameos[1] & ".ini", "sqlcon", "sqlpass", "fehler")
$sidcrypt = "MeinnA"
$scPass =  __StringEncrypt(0,$sqlpass, $sidcrypt,1)

;Datenbank Verbindung Aufbauen
;MsgBox(0,"", $sqlserver & " " & $sqluser & " " & $sqluserpass & " " & $sqldb)
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Capture Log Viewer", 610, 600, 306, 244)

$MenuItem10 = GUICtrlCreateMenu("Datei")
$MenuItem11 = GUICtrlCreateMenuItem("Beenden", $MenuItem10)

;$MenuItem20 = GUICtrlCreateMenu("Bearbeiten")
;$MenuItem21 = GUICtrlCreateMenuItem("Überwachung aktivieren", $MenuItem20)
;$MenuItem22 = GUICtrlCreateMenuItem("Überwachung deaktivieren", $MenuItem20)

$MenuItem30 = GUICtrlCreateMenu("Info")
$MenuItem31 = GUICtrlCreateMenuItem("Info", $MenuItem30)
GUISetBkColor(0xFFFFFF)

$ListView1 = GUICtrlCreateListView("Meldung|Nummer|jahr|Datum|Uhrzeit", 16, 16, 570, 510 -1, $iExWindowStyle)
 _GUICtrlListView_SetExtendedListViewStyle($ListView1, $iExListViewStyle)

$Aktualis = GUICtrlCreateButton("Aktualisieren", 16, 536, 440, 25)
$Checkbox1 = GUICtrlCreateCheckbox("auto Aktualisierung", 470, 540, 130, 17)
GUISetState(@SW_SHOW)

;##########################################################################
;## Form 2
;##########################################################################
$Form_Mail = GUICreate("Fehler in der  Verarbeitung", 354, 360, 551, 258,  BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Input1_Mail = GUICtrlCreateInput("it@xxx.com", 24, 72, 305, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Input2_Mail = GUICtrlCreateInput("Kurzbeschreibung", 24, 128, 305, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Edit1_Mail = GUICtrlCreateEdit("", 24, 184, 305, 89, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetData(-1, "Fehlerbeschreibung")
$Button1_Mail = GUICtrlCreateButton("Senden", 24, 288, 131, 25)
$Label1_Mail = GUICtrlCreateLabel("Es ist ein Fehler aufgetreten ", 24, 16, 217, 17)
$Label2_Mail = GUICtrlCreateLabel("Empfänger Mail Abdresse", 24, 48, 124, 17)
$Label3_Mail = GUICtrlCreateLabel("Betreff", 24, 104, 35, 17)
$Button2_Mail = GUICtrlCreateButton("nicht senden", 184, 288, 147, 25)
$Label4_Mail = GUICtrlCreateLabel("Mail Nachricht", 24, 160, 72, 17)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

Alles anzeigen

mcbaldrian

Ich habe schon alle möglichen Startarten probiert Run , ShellExecute usw immer das selbe Problem.

Kann mir jemand vielleicht einen Tip gaben

Danke

Gruss Arno

mcbaldrian

Servus Leute

ich habe das Problem das ich einen Dienst habe der einen Prozess überwacht ob der gestartet ist. Wenn dieser Prozess da ist wird ein Autoit Script ( exe ) gestartet.

Jetzt ist das sauber so das wenn ich mein Autoit Programm per Doppelklick Starte ist meine GUI da wenn der Überwachung's Prozess mein Programm Startet ist der Prozess zwar gestartet aber die GUI kommt nicht hoch.

Das Programm das als Dienst läuft ist so aufgebaut.

C

#Include <File.au3>
#include <array.au3>
#include <string.au3>

;INI auslesen die im Scriptverzeichniss liegt


;Forschleife die alle 30 Secunden durchläuft und und die Jobs abarbeitet.###############################################
For $i= 0 to 2880
    if ProcessExists("cceWork.exe") Then ;Der zu überwachende Prozess

            $ProgPath = StringTrimRight(@ScriptDir,"8")
            ShellExecute($ProgPath & "\QueueWatch.exe","","","",@SW_SHOW)
            ;Run("notepad.exe", "" ,@SW_MINIMIZE)
            FileWriteLine(@ScriptDir & "\log.txt", @error & " " &  " " & $ProgPath & "\QueueWatch.exe" & "  " & @CRLF)


    EndIf

    ;Zeitschleife
    Sleep(30100) ; 30,100 Sekunden
    if $i=2879 Then $i=0
Next
;Forschleife die alle 30 Secunden durchläuft und und die Jobs abarbeitet.###############################################

Alles anzeigen

mcbaldrian

Hallo Leute

ich möchte mich bedanke vor allem bei Bitnugger.

Mittlerweise habe ich es hinbekommen.

gruss Arno

mcbaldrian

Meine Tabelle ist so aufgebaut

Wert1 ; Wert2; Wert3; Name des Bildes

'Simple Pistol' '1', 'Weapon', 'admincheat', '1.png'

und ich will folgendes Ergebniss

Wert1 ; Wert2; Wert3; Bild Anzeigen

Ich habe mit Bildern in ListView leider noch nie gearbeitet.

Mein Array Stimmt wenn ich nur txt werte ausgeben lasse kommt das Ergebnis ohne Probleme .

Hat jemand ein Beispiel wie es aufgebaut sein muss.

Meine For schleifen sehen eigentlich so aus.

Code

For $i = 0 To UBound($array) - 1
  $inhalt1 = $array[$i][0] & "|" & $array[$i][1] & "|" & $array[$i][2] & "|" & $array[$i][3]
  GUICtrlCreateListViewItem($inhalt1, $Haupt_ListView1)
 Next

Das funktioniert Problem los nur kann ich kein Bild anzeigen lassen und da hab ich mein Problem ich weiß nicht mal ansatzweise wie ich das aufbauen muss.

Leider habe ich im Zusammenhang mit Mysql kein Beispiel im Internet gefunden.

gruss Arno

mcbaldrian

Kann mir keiner Helfen

mcbaldrian

Hallo leider brauch ich immer noch eure Hilfe ich Checks leider nicht.

Ich habe folgende Situation

; MYSQL starten, DLL im PATH (enthält auch @ScriptDir), sont Pfad zur DLL angeben. DLL muss libmysql.dll heißen.

Code

$query = "SELECT * FROM item where klasse = 'Structure'"
_MySQL_Real_Query($MysqlConn, $query)
$res = _MySQL_Store_Result($MysqlConn)
$fields = "7";_MySQL_Num_Fields($res)
$rows = _MySQL_Num_Rows($res)
;MsgBox(0, "Anzahl Rows und Fields", $rows & "-" & $fields)
if $rows <> 0 Then
    Dim $array[$rows][$fields]
    For $k = 1 To $rows
        $mysqlrow = _MySQL_Fetch_Row($res,$fields)
        $lenthsStruct = _MySQL_Fetch_Lengths($res)
        For $i = 1 To $fields
            $length = DllStructGetData($lenthsStruct, 1, $i)
            $fieldPtr = DllStructGetData($mysqlrow, 1, $i)
            $data = DllStructGetData(DllStructCreate("char[" & $length & "]", $fieldPtr), 1)
            $array[$k - 1][$i - 1] = $data
        Next
    Next
    _GUICtrlListView_SetImageList($Haupt_ListView1, $g_hImageList, 1)
    ; Add columns
    _GUICtrlListView_AddColumn($Haupt_ListView1, "Items", 120)
    _GUICtrlListView_AddColumn($Haupt_ListView1, "SubItems", 150)
    _GUICtrlListView_AddColumn($Haupt_ListView1, "test1", 210)
    _GUICtrlListView_AddColumn($Haupt_ListView1, "test", 210)
    _GUICtrlListView_AddColumn($Haupt_ListView1, "Bild", 210)
    _GUICtrlListView_SetImageList($Haupt_ListView1, $g_hImageList, 1)

    For $i = 0 To UBound($array) - 1
        ; Add items
        _GUICtrlListView_AddColumn($Haupt_ListView1, $array[$i][1], 120)
        _GUICtrlListView_AddColumn($Haupt_ListView1, $array[$i][2], 150)
        _GUICtrlListView_AddColumn($Haupt_ListView1, $array[$i][3], 210)
        _GUICtrlListView_AddColumn($Haupt_ListView1, $array[$i][4], 210)
        _GUIImageList_AddImage($g_hImageList, @ScriptDir & '\image\' $ $array[$i][5], $iX, $iY)
    Next
EndIf
_MySQL_Free_Result($res)

Alles anzeigen

wie muss ich das Aufbauen das in der ersten oder letzten Spalte das Image angezeigt wird.

Wie gesagt alle Infos kommen aus einen mysql Datenbank auch der Name des Bildes das angezeigt werden soll.

Wahrscheinlich bin ich nur blind oder hab einen falschen Denkansatz

gruss Arno

mcbaldrian

Meine Version ist eigentlich Aktuell das ich habe diese Function nicht und wenn ich mir die Aktuelle GDIPlus.au3 besorge gibt es diese Function auch nicht.

mcbaldrian

Servus

was für eine GDIPlus.au3 verwendet Ihr da ich keiner die ich im Internet finde die Functionen die hier verwendet werden enthalten sind

oder könntet Ihr die bereitstellen. Danke

mcbaldrian

Ja das habe ich mir natürlich angeschaut nur leider steht da nix mit Datensätze aus ner datenbank und leider bekomme ich es nicht hin.

Hab schon alles mögliche getestet aber ich krieg es nicht gebacken sonst würde ich nicht fragen.

mcbaldrian

Ich stelle die Frage mal anders wie kann ich den ImageList in ein Listview einbauen das aus einem MYSQL Select befüllt wird ( auch der Bildname kommt aus der datenbank ).

mcbaldrian

nein kann auch in die erste Spate des is egal

und wie geht das mit dem ImageList

mcbaldrian

Hallo Leute,

kennt jemand eine Möglichkeit in einem Listview folgendes anzuzeigen.

TEXT | TEXT | TEXT | ein img als Bild

oder hat jemand eine Altanatieve.

Die Datensätze kommen aus einer mysql Tabele und die Bilder liegen im Filesystem.

gruss Anro

mcbaldrian

bin gerade drauf gekommen das ich wenn ich den listview leere kann ich mit GuiCtrlSetData() den Header befüllen. Wuste ich nicht

DANKE für die Info

mcbaldrian

Hallo Leute

weiß zufällig jemand wie ich einen Listview Header nachträglich ändern kann.

$Haupt_ListView1 = GUICtrlCreateListView("ID | Name | Function | IMAGE", 12, 85, 675, 470)

bis jetzt mach ich immer so das ich den Listview delete und wieder erzeuge. Wenn ich aber 2 Forms habe geht das nicht mehr.

Gruss Arno

mcbaldrian

Naja geht leider nicht so einfach schon alleine durch die Menge an Sonderzeichner sprich " man könnte diese zwar mit Chr() angeben ist aber ein Riesen Overhead und fast nicht wartbar.
Darum eben meine Frage

mcbaldrian

Hallo Leute
ich habe schon ein paar Scripte mit Autoit geschrieben in denen ich ein SQL verarbeite diese waren aber immer nur einzeilig ( Select * from blablabla ) aber jetzt müsste ich mit Autoit
solche SQL Scripte verarbeiten
#############################################################################
use DATEN_Cdb
-- delete from DATEN_Cdb

BULK INSERT DATEN_Cdb.[dbo].DATEN_Cdb FROM 'C:\daten.txt'
WITH (
CODEPAGE = 'ACP', --Ermöglicht Darstellung v. Sonderzeichen
FIRSTROW = 1, -- Gibt die Startzeile an.
FIELDTERMINATOR = '"|"', -- Seperator d. Spalten
ROWTERMINATOR = '\n' -- Seperator d. Zeilen
);
GO
/*Ersetze die Gänsefüßchen am Anfang der ersten Spalte*/
update DATEN_Cdb
set [1001] = (replace ([1001], '"','')) where [1001] like '"%'

/*Ersetz die Gänsefüßchen am Ende der letzten Spalte*/
update DATEN_Cdb
set [1028] = (replace ([1028], '"','')) where [1028] like '%"'
select * from DATEN_Cdb
######################################################################################

wie kann ich diese Verarbeiten ??

gruss Arno

mcbaldrian

Manchmal ist mal naja hätte ich selber drauf kommen können.

Ich danke dir für die schnelle Antwort es funktioniert ohne Probleme PERFEKT

Beiträge von mcbaldrian

Prozess startet ohne GUI

Prozess startet ohne GUI

Prozess startet ohne GUI

Prozess startet ohne GUI

Prozess startet ohne GUI

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

PNG in Listview

ListView Header ändern

ListView Header ändern

SQL Script mit Autoit

SQL Script mit Autoit

Gui mit TrayItem