Piccolo esempio base, per l’invio di una mail utilizzando la classe Indy TidMessage : documentazione originale : {http://www.dragonsoftru.com/articles/indy-email.html#part_3_4} function TDmMail.SendHtmlMessage(AddrFrom, AddrTo, Subject, Body, AttachFiles: String): Boolean; Var Idm : TIdMessage; TSFiles : TStringList; IdA : TIdAttachment; I : Integer; lTextPart : TIdText; lImagePart : TIdAttachment; begin IdSMTP.Connect(4000); IdSMTP.Username := ‘ivo il tardivo’; Idm := TIdMessage.Create(Self);…
Leggi tutto
Capita di creare applicazioni che fanno un uso intensivo della memoria, per poter calibrare alcuni processi all’interno dell’applicazione potrebbe essere conveniente conoscere l’impegno di memoria di quest’ultima, per fare ciò riporto di seguito un piccolo esempio : Leggere la quantità di memoria occupata dalla ns applicazione da codice {$R *.dfm} uses psAPI; function GetProcessMemorySize(var _nMemSize:…
Leggi tutto
La procedura standard che si occupa di eseguire questo compito è : sp_changeobjectowner Sintassi : sp_changeobjectowner [ @objname = ] ‘object’ , [ @newowner = ] ‘owner’
Nell’esempio si invoca l’oggetto WinHTTP per eseguire una richiesta HTTP da una stored procedure, l’oggetto WinHTTP è una calsse COM, perciò tale esempio è applicabile a qualsiasi classe COM : /* *************** ESEMPIO CODICE t-sql ******************* */ CREATE proc dbo.INVIA_RICHIESTA(@Proxy varchar(400), @ProxyByPass varchar(400),@sUrl varchar(400),@sParam varchar(400)) as DECLARE @Hresult int DECLARE @oWinHttp int DECLARE @ErrorSource varchar…
Leggi tutto
Per invocare un dialog di conferma in Javascript : if(confirm( ‘Si vuol procedere’ )) { alert(‘hai premuto ok’) } else { alert(‘hai premuto annulla’) };
Associare un estensione file alla vostra applicazione : Associare un estensione file alla vostra applicazione : Procedure RegisterFileType(cMyExt, cMyFileType, cMyDescription, ExeName: string; IcoIndex: integer; DoUpdate: boolean = false); var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey(cMyExt, True); // Write my file type to it. // This…
Leggi tutto
