Bien Trabajosa

A peticion del tamal por fin voy a publicar despues de varias semanas sin hacerlo y es q aunque usted no lo crea andaba muy ocupada, tenia mucho trabajo y entre otras cosas batalle un poco con la programación, pero despues de buscar y buscar por internet hasta el grado de q ya no quería habrir una página más. Así es q le voy a contar lo q no me salia y como lo arregle para q si les llega a suceder pues lo tomen en cuenta.

1.- Un nuevo modulo para el proyecto, el cual consistia en poder almacenar circulares (en .pdf, .doc, .txt, etc, etc) en la base de datos para despues mostrarlas, me costo muchisimo saber como almacenar estos documentos en la base de datos, ya se ya se q podria almacenar la ruta pero noooo ese no es el chiste, el chiste es q se realizara en envio de central a tiendas, y la solucion fue la siguiente:

Si yo quiero guardar por ejemplo un archivo.doc, por supuesto en una aplicacion delphi simplemente se lo cargo al parametro con una propiedad LoadFromFile('c:\archivo.doc');

Parameters[1].Name:='@pContenido';

Parameters[1].LoadFromFile(strfile,ftBlob);//-->> tipo Blob

logicamente el parametro en el TQuery es TBLOB de hecho delphi lo reconoce automaticamente.

Ahora si quiero ver el contenido, lo consulto y la porpiedad saveToFile('c:\archivo.doc'); con esto lo grabo en mi disco duro y si en ese mismo momento quiero verlo pues lo abro con shellExecute.

Try

OPEN;

BlobF :=TBlobField(FieldByName('contenido'));

strnombre:= FieldByName('nombre').AsString;

strnombre:=GstrIsyposPath+'circulares\'+strnombre;

blobF.SaveToFile(strnombre);

ShellExecute(handle,'open',PChar(strnombre), '','',SW_SHOWNORMAL);

result:=true;

EXCEPT

Se nota q en todo Fomento quieren minimizar gastos ahora hasta la chamba de los mensajeros quieren automatizar jijijijijiji y me toco a mi hacerla.

2. Hoy tenemos q realizar la primera transacción del pago con tarjeta de crédito o débito jajajaja ahi le vamos a ganar a OXXO así es q tenia q hacer una pantalla q no tenia nada, ni un botón nada pero si tenia q realizar un proceso cuando está se abriera así q la unica manera era llamar dicho proceso en el evento OnActivate pero cual fue mi sorpresa, no respondia al evento OnClose, y esq despues de mandar llamar mi proceso ejecutaba el evento OnClose y pos q no salia y no salia y despues de tanto buscar encontre una solución:

Si se quiere cerrar una forma dentro del evento OnActivate solo pongan está linea

PostMessage(Handle, WM_CLOSE, 0, 0);

porque el Close(); no funciona =)

Espero q les sirva, nos seguimos escribiendo =)