Programación

Enviar email desde Lazarus smtp indy

Lazarus, Programación /

    Cómo enviar emails desde [Lazarus] con Indy 10.   Incluimos las unidades necesarias para el proyecto. En este caso las unidades imprescindibles para que funcione el envío de email usando TSL son: IdSMTP IdMessage IdAttachmentFile IdIOHandler IdIOHandlerStack IdSSL IdSSLOpenSSL IdExplicitTLSClientServerBase La unidad quedaría así: uses Classes, SysUtils,Windows,DBGrids,Graphics,ZAbstractRODataset,ZDataset,DB,WinSock, IdSMTP,IdMessage,IdAttachmentFile, IdIOHandler, IdIOHandlerStack, IdSSL,IdSSLOpenSSL, IdExplicitTLSClientServerBase;   […]

Enviar email desde Lazarus smtp indy Leer más »

Insertar un Combo de otra tabla en un DBGrid

Lazarus, Programación /

¿Cómo insertar un combo dentro de un dbgrid? unit provincia; {$mode objfpc}{$H+} interface uses Classes, SysUtils, db, FileUtil, Forms, Controls, Graphics, Dialogs, DbCtrls, DBGrids, Grids; type { TForm4 } TForm4 = class(TForm) DBGrid1: TDBGrid; DBLookupComboBox1: TDBLookupComboBox; DBNavigator1: TDBNavigator; dsProvincia: TDataSource; dsPais: TDataSource; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); private

Insertar un Combo de otra tabla en un DBGrid Leer más »

Campo calculado en Lazarus

Lazarus, Programación /

Campo calculado en lazarus     Vamos a crear una columna “Total” para que realice un cálculo simple en un dbgrid “Importe”*”Apunte”       zquery1 botón derecho editar campos Crear un nuevo campo y añadirlo en la posición actual (Insert) Calculados             procedure TDataModule1.ZQuery1CalcFields(DataSet: TDataSet); begin DATASET.FieldByName(‘Total’).Value := dataset.fieldbyname(‘IMPORTE’).Value

Campo calculado en Lazarus Leer más »

Archivo config.ini en Lazarus

Lazarus, Programación /

Uso config.ini en Lazarus. Veamos la configuración del fichero config.ini para la carga de los datos iniciales  de la aplicación realizada en lazarus. fichero config.ini [Configuracion] Usuario=SYSDBA Clave=masterkey Servidor=localhost BasedeDatos=F:\Lazarus\Cuadre\CUADRE.FDB Libreria=F:\Lazarus\Cuadre\fbclient.dll RutaConta=F:\Lazarus\Cuadre\dbf\ var ini: TINIFile; begin try ini := TINIFile.Create(‘config.ini’); ZConnection1.User:=ini.ReadString (‘Configuracion’, ‘Usuario’, ”); ZConnection1.Password:=ini.ReadString (‘Configuracion’, ‘Clave’, ”); ZConnection1.HostName:=ini.ReadString (‘Configuracion’, ‘Servidor’, ”); ZConnection1.Database:=ini.ReadString (‘Configuracion’, ‘BasedeDatos’,

Archivo config.ini en Lazarus Leer más »

Scroll al inicio