Skip to content

Instantly share code, notes, and snippets.

@drgarcia1986
drgarcia1986 / TesteCotacao.dpr
Created February 13, 2014 23:03
Classe feita em Delphi para recuperar a cotação de algumas moedas estrangeiras baseada nas versões brasileiras do site CashCash.cc
program TesteCotacao;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Utils.Cotacao in 'Utils.Cotacao.pas';
@drgarcia1986
drgarcia1986 / cotacao.py
Created February 13, 2014 23:09
Classe feita em Python para recuperar a cotação de algumas moedas estrangeiras baseada nas versões brasileiras do site CashCash.cc
__author__ = 'diego.garcia'
import urllib.request as req
import re
class Cotacao:
def __get_cotacao(self, url, regex='^.*nacional" value="([0-9,]+)"'):
pagina = req.urlopen(url)
@drgarcia1986
drgarcia1986 / UDP.Server.Exemplo.pas
Last active August 29, 2015 13:56
Classe feita em Delphi que encapsula um servidor UDP, trabalhando com método anônimo para regatar as mensagens recebidas e determinar a resposta que o servidor deve devolver para o cliente.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TUDPServer.GetInstance().SetReponseToMessage(
function(const AMsg : string):String
begin
Memo1.Lines.Insert(0,AMsg);
if AMsg = 'UDP-MSG' then
Result := 'DONE'
else
Result := ReverseString(AMsg);
@drgarcia1986
drgarcia1986 / udp_client.py
Created February 17, 2014 23:51
Classe feita em Python que encapsula um cliente UDP enviando e recebendo mensagens de um servidor.
__author__ = 'diego.garcia'
import socket
class UDPClient:
__IP = '255.255.255.255'
__PORT = 49152
__udp_cli = ''
@drgarcia1986
drgarcia1986 / UDP.Client.Exemplo.pas
Created February 19, 2014 17:56
Classe feita em Delphi que encapsula um cliente UDP enviando e recebendo mensagens de um servidor.
procedure TForm1.Button1Click(Sender: TObject);
var
wPort: Word;
sIp: string;
sMsg: string;
begin
TUDPClient.GetInstance().EndOfProtocol := '.';
sMsg := TUDPClient.GetInstance().SendBroadcast('UDP-MSG',sIp,wPort);
Memo1.Lines.Add(Format('[%s] [%d] : %s',[sIp,wPort,sMsg]));
@drgarcia1986
drgarcia1986 / Rastreio.Correios.pas
Created February 24, 2014 23:16
Classe escrita em Delphi que recupera e interpreta o rastreio de encomendas do site dos correios.
unit Rastreio.Correios;
interface
uses
IdHTTP,
System.Generics.Collections;
type
TStatus = record
@drgarcia1986
drgarcia1986 / Singleton.Example.pas
Created February 25, 2014 18:18
Esqueleto para criação de uma classe Singleton em Delphi
unit Singleton.Example;
interface
type
TMyClass = class
strict private
class var FInstance : TMyClass;
private
class procedure ReleaseInstance();
@drgarcia1986
drgarcia1986 / singleton_example.py
Created March 11, 2014 19:55
Esqueleto para criação de uma classe Singleton em Python
class MyClass:
__instance = None
@staticmethod
def instance():
if not MyClass.__instance:
MyClass.__instance = MyClass()
return MyClass.__instance
@drgarcia1986
drgarcia1986 / CurrencyConvertor.pas
Created March 17, 2014 23:12
Aplicativo de exemplo referente a post de titulo "Recuperando o XML de uma requisição SOAP em Delphi" no blog http://drgarcia1986.wordpress.com/
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://www.webservicex.net/CurrencyConvertor.asmx?WSDL
// >Import : http://www.webservicex.net/CurrencyConvertor.asmx?WSDL>0
// Encoding : utf-8
// Version : 1.0
// (27/06/2013 19:13:01 - - $Rev: 45757 $)
// ************************************************************************ //
@drgarcia1986
drgarcia1986 / datas.py
Created March 28, 2014 15:06
Exemplo básico de como trabalhar com os métodos strptime e strftime da biblioteca datetime do python
__author__ = 'diego.garcia'
import datetime
dt = datetime.datetime.strptime('February 28, 2014, 7:05 AM', '%B %d, %Y, %I:%M %p')
print(dt.strftime("%d/%m/%Y %I:%M %p"))