Via Cà Matta 2 - Peschiera Borromeo (MI)
+39 02 00704272
info@synaptica.info

Autore: Ivan Revelli

Digital Innovation Partner

[VBS – TIP] – Consumare un Web Service da VBS

Tramite VB Scripts è anche possibile (in maniera un pochino limitata) invocare Web Services. Nell’esempio ci connetteremo a un servizio di traduzione offerto da Altavista(http://www.altavista.com). Questo servizio web permette, senza scrivere una riga di codice, di avere a disposizione un potente strumento di traduzione da inserire nelle vs. applicazioni. Il servizio lo abbiamo trovato consultando…
Leggi tutto

TIP [MS-SQL 2000] – Cursori

L’uso dei cursori nella scrittura di procedure è spesso un’attività da evitare il più possibile, considerando che l’implementazione dei cursori non è molto omogenea tra un DB Server e l’altro, di conseguenza potrebbe limitare la portabilità del vs sviluppo da un db ad un altro. Inoltre se un operazione è fattibile tramite istruzioni standard SQL è…
Leggi tutto

Delphi – Howto execute CPL Application

Piattaforma : MS Windows (Win32s) Liguaggio di sviluppo : Borland Delphi (all version) Tipo di sviluppo : Shell Api Breve Intro : Le applicazioni .CPL (Control Panel Application) sono delle particolari applicazione compilate che vengono eseguite ed elencate dal pannello di controllo di Windows. Esempio : Ad esempio potrebbe essere carino da un’applicazione multimediale poter…
Leggi tutto

VBS – Access to DTS object in Sql-Server 2000

  ‘********************************************************************** ‘  Visual Basic ActiveX Script ‘************************************************************************ Function Main()              Dim oPkg, oStep              ‘ACCEDI AL MAIN OBJ DEL PACKAGE IN CUI è COMPRESO LO SCRIPT Set oPkg = DTSGlobalVariables.Parent   ‘ACCEDI ALL’ELENCO DEGLI STEPS DTS              set oStep = oPkg.Steps(“DTSStep_DTSActiveScriptTask_3”)             ‘ oStep.ExecutionResult =   DTSTaskExecResult_Success              msgbox(oStep.ExecutionResult)              oStep.ExecutionResult = 0         Main = DTSTaskExecResult_Success End Function  

Delphi – Mail from Shell

Tecnologie : Linguaggio : Borland Delphi Sistema Operativo : Ms-Windows Piattaforma : W32S   Invio di mail tramite chiamata a shell utilizzanto la procedura SHELLEXECUTE contenuta nella libreria ShellAPI DI SEGUITO UN ESEMPIO : implementation uses ShellAPI; procedure TForm1.btnSendMailClick(Sender: TObject); var MailPar: PChar; MailTo: String; MailSubject: String; MailBody: String; FullString: String; begin MailTo := ‘info@csdrevelli.it‘;…
Leggi tutto

Delphi : Trasferire Dati da un TMemoryStream a un VarArray

Tecnologie : Linguaggio : Embarcadero Delphi Sistema Operativo : Ms-Windows Piattaforma : W32S Argomenti : Trasferire il contenuto di un TMemoryStream in un VarArray Trasferire il contenuto di un VarArray in un TMemoryStream Funzione Move pre spostare grossi blocchi di memoria. Questa è una funzione a basso livello per esegure spostamenti di dati da RAM a…
Leggi tutto