Conectar Dev-C++ a PostgreSQL (libpq)

Luego de haber instalado PostgreSQL he copiado sus librerías (libeay32.dll, libiconv-2.dll, libintl-8.dll, libpq.dll, ssleay32.dll) al directorio donde tengo el proyecto.

using namespace std ;
#include 
#include 
 
PGconn *cnn = NULL;
PGresult *result = NULL;
 
char *host = "localhost";
char *port = "5432";
char *dataBase = "postgres";
char *user = "postgres";
char *passwd = "1234";
/* run this program using the console pauser or add your own getch, system("pause") or input loop */
 
int main(int argc, char** argv) {
    int i;
 
    cnn = PQsetdbLogin(host,port,NULL,NULL,dataBase,user,passwd);
    if (PQstatus(cnn) != CONNECTION_BAD) {
        cout << "Estamos conectados a PostgreSQL!" << endl;
        result = PQexec(cnn, "SELECT * FROM test");  //había creado una tabla llamada test
 
        if (result != NULL) {
            int tuplas = PQntuples(result);
            int campos = PQnfields(result);
            cout << "No. Filas:" << tuplas << endl;
            cout << "No. Campos:" << campos << endl;
 
            cout << "Los nombres de los campos son:" << endl;
 
            for (i=0; i<campos; i++) {
                cout << PQfname(result,i) << " | ";
            }
 
            cout << endl << "Contenido de la tabla" << endl;
 
            for (i=0; i<tuplas; i++) {
                for (int j=0; j<campos; j++) {
                    cout << PQgetvalue(result,i,j) << " | ";
                }
                cout << endl;
            }
        }
 
        // Ahora nos toca liberar la memoria
        PQclear(result);
 
    } else {
        cout << "Error de conexion" << endl;
        return 0;
    }
 
    PQfinish(cnn);
	return 0;
}

fuente https://logbinario.wordpress.com/2010/01/09/conexion-c-con-postgresql-mediante-libpq/

Generar código de barras 2 of 5 interleaved

El siguiente código en VB6 se utiliza para generar el código de barras, los caracteres, para la normativa vigente de Factura Electrónica de AFIP

Public Function Code25I$(chaine$, Optional key As Boolean)
  'V 2.0.0
  'Parametres : * une chaine
  '             * un drapeau vrai si une cle doit etre ajoutee
  'Parameters : * a string
  '             * a flag true if a key must be added
  'Retour : * une chaine qui, affichee avec la police CODE25I.TTF, donne le code barre
  '         * une chaine vide si parametre fourni incorrect
  'Return : * a string which give the bar code when it is dispayed with CODE25I.TTF font
  '         * an empty string if the supplied parameter is no good
  Dim i%, checksum&, dummy%
  Code25I$ = ""
  If Len(chaine$) > 0 Then
    'Verifier si caracteres valides
    'Check for valid characters
    For i% = 1 To Len(chaine$)
      If Asc(Mid$(chaine$, i%, 1)) < 48 Or Asc(Mid$(chaine$, i%, 1)) > 57 Then Exit Function
    Next
    'Ajouter si necessaire la cle
    'Add if necessary the checksum
    If key Then
      For i% = Len(chaine$) To 1 Step -2
        checksum& = checksum& + Val(Mid$(chaine$, i%, 1))
      Next
      checksum& = checksum& * 3
      For i% = Len(chaine$) - 1 To 1 Step -2
        checksum& = checksum& + Val(Mid$(chaine$, i%, 1))
      Next
      chaine$ = chaine$ & (10 - checksum& Mod 10) Mod 10
    End If
    'Verifier si la longueur est paire
    'Check if the length is odd
    If Len(chaine$) \ 2 <> Len(chaine$) / 2 Then Exit Function
    'Calculer la chaine de code
    'Calculation of the code string
    For i% = 1 To Len(chaine$) Step 2
      dummy% = Val(Mid$(chaine$, i%, 2))
      dummy% = IIf(dummy% < 94, dummy% + 33, dummy% + 101)
      Code25I$ = Code25I$ & Chr$(dummy%)
    Next
    'Ajoute START et STOP / Add START and STOP
    Code25I$ = Chr$(201) & Code25I$ & Chr$(202)
  End If
End Function

La fuente original de este artículo es https://grandzebu.net/informatique/codbar-en/code25I.htm