Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: eddy16391 - Dicembre 06, 2018, 10:07:24 am

Titolo: Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 06, 2018, 10:07:24 am
Ciao a tutti,
sto cercando di scrivere un'applicazione auto schedulata ma non funziona. Mi spiego meglio, abbiamo bisogno di un'applicazione che faccia un backup di alcune tabelle in un server microsoft sql e invii tutto ad un altro server tramite SSH. Il problema è che non abbiamo le autorizzazioni di amministratore, quindi non possiamo usare lo scheduler di Windows Server. Quindi l'idea era di fare un'applicazione con un TTimer che ogni 6 ore esegua la procedura. Il problema è che, se provo a lanciare la procedura settando l'intervallo del timer ogni 5 minuti sembra funzionare, ma ovviamente non va bene perchè il server di destinazione non riesce a fare poi l'importazione di tutti i dati necessari in soli 5 minuti quindi i lavoro vanno ad accavallarsi. Se invece setto il timer ogni 6 ore, come vorrei che funzionasse, non esegue l'operazione. Potrebbe essere che il problema è nel fatto che ho scritto tutto la procedura direttamente nell'evento ontimer? Altrimenti qualche altro consiglio??
Grazie!
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: schumi - Dicembre 06, 2018, 10:31:36 am
consiglio di salvare da qualche parte l'ora dell'ultima esecuzione, poi il timer ogni 5 minuti va a vedere se sono passate 6 ore dall'ultima volta.
così se devi spegnere e riaccendere comunque il processo verrà eseguito nel momento corretto.

ciao
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: xinyiman - Dicembre 06, 2018, 10:41:47 am
Ipotizzo la causa e faccio un esempio

sono le 10 e tu esegui l'operazione quindi ti aspetti che l'operazione avvenga nuovamente alle 16. Ma l'operazione in se dura 20 minuti. Se ti appoggi solo al timer succede che:

lo lanci alle 10 alle 10 e 20 finisce allora viene rieseguito alle 16 e 20.
Tu devi segnarti l'ora prima dell'esecuzione e come detto sopra verificare ogni tot di minuti che non siano passate 6 ore da quell'evento. Spero di essermi spiegato.
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 06, 2018, 10:58:20 am
No, in realtà la procedura sul server che segue il backup e lo spedisce dura pochi secondi, al massimo un paio di minuti.
Poi nel server di destinazione è la procedura di import dei dati che può impiegare anche 20 o 30 minuti.
Comunque adesso provo a fare un'altra cosa. Imposto l'intervallo del timer ogni 10 minuti e poi se l'ora attuale ricade in un intervallo specifico durante la notte faccio partire la procedura, altrimenti no.
A proposito. Come si crea una procedura che non sia legata ad un evento su un oggetto?

Codice: [Seleziona]
procedure nomeProcedura ();
begin
 ...
end

Così va bene? E poi come la richiamo da dentro il timer?

Codice: [Seleziona]
nomeProcedura();

Direttamente cosi? Grazie per i consigli e scusate ma sono nuovo del Pascal.
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: xinyiman - Dicembre 06, 2018, 11:18:11 am
Si si scrivono così, ma all'interno della classe di destinazione. Ipotizziamo che il timer sia sulla tform1. Tu vai nella dichiarazione della tform1 nella sezione public o private (dipende da te) ma in questo caso direi private e scrivi

procedure nomeProcedura ();

dopo ti posizione col cursore su quella riga e premi CTRL+C e lui automaticamente ti crea la funzione vuota nel sorgente, la cerchi e la riempi del codice che ti serve.
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 06, 2018, 11:33:38 am
Ok grazie, provo il tutto e domani vi scrivo il responso.
 ;D
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: nomorelogic - Dicembre 06, 2018, 12:56:48 pm
forse dovresti mettere un semaforo nel server che importa

quindi se nel server di destinazione scatta il timer ma c'è ancora un import in corso, la nuova operazione viene abortita
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 06, 2018, 01:38:04 pm
Ragazzi ho capito il problema.
Praticamente l'applicazione è perfetta e funzionante, è il server il problema.
Cerco di spiegarvi la situazione così magari avete una soluzione da propormi.
Praticamente questo mio cliente ha accesso ad un server remoto per utilizzare i sistemi ESA (tramite desktop remoto, io usa Remmina da Linux) nel quale è installato Windows Server 2008 R2 con Microsoft SQL Server.
La mia applicazione quindi fa un backup di alcuni dati che sono nel SQL, li comprime in uno zip con password e tramite SSH lo spedisce al server che invece gestisco direttamente io nel quale viene avviata la procedura di importazione.
Adesso il problema è che, ogni volta che mi connetto e disconnetto tramite Remmina, l'utente sul server ESA si connette e disconnette. Quindi per questo non mi funzionava l'applicazione, perchè visto che l'utente (che non è amministratore) si disconnette quando io esco viene chiusa la mia applicazione.
Avete qualche idea da suggerirmi?  :'(
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 06, 2018, 04:53:36 pm
Crea un servizio.
Così puoi associare una utenza con i privilegi che servono.
O usi lo scheduler di window impostando i privilegi adeguati.
Non per  forza amministratore di sistema.
Così ti eviti di impazzire o lascare il desktop tremoto attivo h24/7x7

Stilgar
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 06, 2018, 05:17:58 pm
Il problema è che non avendo i permessi di administrator lo scheduler di windows non lo posso utilizzare.
Se volessi creare il servizio posso crearlo senza essere administrator?

EDIT: Ho provato a creare il servizio ma non avendo i permessi di amministratore non me lo fa creare ("Access denied"). Come posso verificare se c'è una sorta di autodisconnessione dell'utente impostata?
Oppure magari posso creare un'altra applicazione che faccia continuamente qualcosa per evitare la disconnessione automatica?
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 06, 2018, 05:42:20 pm
Insomma, se devi fare quel backup dovrai pur parlare con qualche amministratore.
Lo fai installare/configurare da lui ... no?
Stilgar
EDIT:Vedrai che dopo la terza volta di concede qualche diritto in più ;)
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 06, 2018, 07:30:12 pm
Prova a vedere se trovi ispirazione qui
https://www.mysysadmintips.com/windows/clients/576-allow-to-view-and-run-scheduled-tasks-without-admin-rights

Stilgar
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: nomorelogic - Dicembre 07, 2018, 09:19:35 am
forse potresti installare il tuo programma su un PC client dove hai i permessi di admin
il tuo programma dovrebbe fare backup del DB in remoto, alcuni RDBMS lo permettono

in alternativa potresti vedere se ti può essere utile questo link, c'è PsExec che è una figata
https://docs.microsoft.com/en-us/sysinternals/downloads/pstools (https://docs.microsoft.com/en-us/sysinternals/downloads/pstools)
non ricordo però se servono le credenziali di admin :(

Edit:
di che database server si tratta?

Edit 2:
ms sql visto ora :)
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 07, 2018, 09:25:47 am
Allora se usciamo dal perimetro indicato... 😂😂😂
La macchina indicata ha la porta 80 aperta?
Puoi fare quello che vuoi lavorando in http.
Apache e php possono eseguire comandi e con un cron esterno piloti quello che ti serve 😂😂😂😂

Stilgar
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: nomorelogic - Dicembre 07, 2018, 09:38:01 am
Allora se usciamo dal perimetro indicato... 😂😂😂

se non è admin è difficile fare quella cosa da li :)
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 07, 2018, 09:46:04 am
Intanto grazie per i consigli, ora vedo quei link che mi avete condiviso.
Comunque la cosa è un po' più delicata di come sembra. Praticamente io ho accesso al desktop remoto di questa macchina con Windows Server 2008 che a sua volta si collega ad un altra macchina con Microsoft SQL Server 2012. Il problema è che queste sono tutte macchine virtuali create ad hoc da TeamSystem per far funzionare la fatturazione con il loro programma ESA. Lunedì quando andrò dal cliente gli chiederò sicuramente di farsi dare le credenziali di Administrator da quelli di TeamSystem in caso non riuscissi a bypassare questo problema.
Sennò avevo anche pensato, esiste un modo per scrivere un'applicazione, anche con Lazarus magari, che effettui una connessione RDP automaticamente?
Perchè praticamente adesso ho messo il mio programma in esecuzione automatica per l'utente al quale ho accesso e provando a connettermi con Remmina qualche minuto prima dell'ora in cui dovrebbe fare l'aggiornamento lo fa tranquillamente. Quindi se riuscissi a fare un altro programma da far girare sul mio server Linux, che è sempre acceso e del quale ho le credenziali di root, che faccia una connessione automatica RDP a quel server con quell'utente per esempio 2 minuti prima dell'ora in cui deve essere eseguito il backup e poi 10 minuti dopo si disconnette potrei evitare il problema.
Non so se sono riuscito a spiegarmi bene. Comunque grazie ancora dei consigli.
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 07, 2018, 10:05:45 am
:)Si ti sei spiegato.
Stilgar
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 07, 2018, 10:24:26 am
Mi è venuta un'altra idea. Leggendo su una guida di Microsoft dice che il server imposta in automatico un tempo dopo il quale disconnettere l'utente se non riceve "input dall'utente". Allora mi domandavo, c'è un modo per mettere nel mio programma un qualcosa che simuli un input dall'utente? Così ogni volta che controllo se è il momento adatto di fare il backup (5 min) potrei far eseguire un rapido "input virtuale" che faccia in modo da non far disconnettere l'utente. Che ne dite?
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 07, 2018, 10:31:48 am
Oddio. Così su due piedi penso  che la chiamata al kernel sendmessage possa avere qualche impatto .
Fai un programma che manda un mouse move al desktop. (Handle zero se non ricordo male, ma con remote e co non ne sono sicuro).
Mandi le coordinate 0,0 così non puoi più usare il mouse, ma la testiera si 😉
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 07, 2018, 10:33:52 am
Resto dell'idea che un apache ti risolverebbe la vita, anche in futuro 😉
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: nomorelogic - Dicembre 07, 2018, 10:38:37 am
+1

alternativa:
se quel server ha una cartella condivisa puoi lanciare il backup su quella cartella condivisa tramite istruzione SQL
quando ha fatto te la copi dove vuoi

non darei tanto affidamento ad un RDP schedulato con vari SendMessage per mantenere aperta la sessione...


Edit:
se il DB non è tanto grande puoi fare backup sul tuo server
BACKUP DATABASE DATABASETEAMSYSTEM TO DISK = '\\ServerDoveSonoAdmin\CartellaCondivisa\DATABASE.bak'
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 07, 2018, 10:52:15 am
Il problema è che l'unico modo che ho per connettermi a quel server è RDP, poi il mio programma spedisce il backup zippato al mio server tramite ssh con l'eseguibile che mette a disposizione putty. In realtà su questo maledetto server non ho niente di più.
Ma se invece simulassi un semplice click sx con il mouse come spiegano qui?
(http://wiki.freepascal.org/MouseAndKeyInput)
Solo che non ho capito come includere la libreria mouseandkeyinput nel mio progetto, mi continua a ritornare questo errore quando provo a compilare:
Codice: [Seleziona]
Compile Project, Target: /home/edoardo/tmp/project1: Exit code 256, Errors: 1
/usr/bin/ld: cannot find -lXtst
project1.lpr(20,1) Error: Error while linking
Grazie ancora per i preziosi consigli! :-D
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: Stilgar - Dicembre 07, 2018, 10:58:14 am
Tra le dipendenze hai lcl?
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 07, 2018, 11:46:59 am
Ok, provato ma non funziona neanche così. A questo punto provo a trovare un comando di linux che mi apra una connessione RDP un paio di minuti prima del backup e poi la richiuda quando è stato effettuato.
Grazie ancora per i consigli!
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: nomorelogic - Dicembre 07, 2018, 12:35:31 pm
se non ricordo male remmina lo puoi usare a linea di comando
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 07, 2018, 12:51:18 pm
Sono riuscito ad impostare remmina da linea di comando, il problema è che eseguendolo sul server remoto al quale posso appoggiarmi mi ritorno questo errore:
Codice: [Seleziona]
(remmina:1611): Gtk-WARNING **: 12:31:34.600: cannot open display:
Qualche suggerimento? Scusate se sto andando ot ma sto impazzendo. XD
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: nomorelogic - Dicembre 07, 2018, 03:05:48 pm
non prenderla per oro colato ma
forse ti serve un virtual display dedicato
Titolo: Re:Applicazione schedulata autonomamente
Inserito da: eddy16391 - Dicembre 07, 2018, 03:11:51 pm
Niente le ho provate tutte ma non riesco a settare il virtual display.
Già che ci siamo vi chiedo un'altra cosa, mi spiegate passo passo come far funzionare questo comando?
Codice: [Seleziona]
MouseInput.Click(mbLeft,[],300,300);   // Left click on X:=300 , Y:=300
Sono andato con il project inspector ad aggiungere la dipendenza ma ogni volta che compilo mi va in errore come avevo già scritto qualche messaggio più sopra
Codice: [Seleziona]
Compile Project, Target: /home/edoardo/tmp/project1: Exit code 256, Errors: 1
/usr/bin/ld: cannot find -lXtst
project1.lpr(20,1) Error: Error while linking

EDIT: risolto, compilandolo con Windows non da errore. Ora provo a vedere se continua a disconnettermi il Windows Server.