Windev21 Aulas,Estudos e Desenvolvimento: 08/04/16

quinta-feira, 4 de agosto de 2016

WX - Como capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação?

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1567-como-capturar-click-titulo-uma-tablelist-listbox-dar/read.awp

Prezados,

Para capturar click no titulo de uma Tablelist Listbox e dar outro evento necessário para a sua aplicação, segue abaixo exemplo:

Em uma tabela com colunas: Número, Nome e Apelido, você gostaria de reorganizar a coluna.

----------------------------------
Número | Nome | Apelido (s)
----------------------------------
0000001 | Marc | Marc
0000002 | Adriano | Boller
0000003 | Emmanuel | Emmanuel
0000004 | Lorelei | Lore
----------------------------------

Digamos que você queira autorizar o filtro das outras colunas, mas manter a numeração das linhas diferentes?

É algo anormal, mas você precisa, então "No init da tabela", você vai por esse código:

Evénement(NovoEventoClickTableList, "TABLEH_LesRevuesCommerciales", 1529)

Crie uma nova procedure local ou global em seu projeto com o mesmo nome usado na linha de código acima:

Procedure NovoEventoClickTableList()
sSens est une chaîne = ""
SI _EVE.wParam <> 0 ALORS //N° de colonne sur laquelle le clic est effectué
//Annuler le tri auto
_EVE.Retour = 0
//Détection du sens du tri
SI PAS _EVE.lParam ALORS sSens = "-"
//Trier sur la colonne
TableTrie(TABLEH_LesRevuesCommerciales, sSens + TableEnumèreColonne(TABLEH_LesRevuesCommerciales, _EVE.wParam), sSens + "COL_Periode")
//Traitement à effectuer "Après chaque tri"
FIN

WX - API para controlar um leitor de RFID

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1568-api-para-controlar-leitor-rfid/read.awp

Publicado em agosto, 04 2016 - 9:22 AM

Prezados,

Segue exemplo de como trabalhar com RFID (Identificação por radiofrequência ou RFID (do inglês "Radio-Frequency IDentification" ) é um método de identificação automática através de sinais de rádio).

Uma etiqueta ou tag RFID é um transponder, pequeno objeto que pode ser colocado em uma pessoa, animal, equipamento, embalagem ou produto, dentre outros. Contém chips de silício e antenas que lhe permite responder aos sinais de rádio enviados por uma base transmissora. Além das etiquetas passivas, que respondem ao sinal enviado pela base transmissora, existem ainda as etiquetas semipassivas e as ativas, dotadas de bateria, que lhes permite enviar o próprio sinal. São bem mais caras que do que as etiquetas passivas.

RFID: utiliza transponders ( os quais podem ser apenas lidos ou lidos e escritos) nos produtos, como uma alternativa aos códigos de barras, de modo a permitir a identificação do produto de alguma distância do scanner ou independente, fora de posicionamento. Tecnologia que viabiliza a comunicação de dados através de etiquetas com chips ou transponders que transmitem a informação a partir da passagem por um campo de indução. (ex: muito usado em pedágio "sem parar").

https://pt.wikipedia.org/wiki/Identifica%C3%A7%C3%A3o_por_radiofrequ%C3%AAncia

Definição da API para controlar um leitor de RFID, com os seus parametros e seu retorno:

int CV_GetSerialNum ( int DeviceAddress , int & CurrentAddress , Char * SerialNum )

Em WL:

tabCurrentAdd est un tableau de 1 entier sur 1 octet
tabSzSerialnum est un tableau de 9 entier sur 1 octet
nSserialnumber est une entier
nSserialnumber = API(sDllname,"CV_GetSerialNum",0,&tabCurrentAdd,&tabSzSerialnum)
SAI_Texte1 = "serialnum status"+nSserialnumber+RC+SAI_Texte1
SAI_Texte1 ="serialnumber:"+ChaîneRécupère(&tabSzSerialnum,crAdresseASCIIZ)+RC+SAI_Texte1

Em C#:

PRIVATE void btnGetSerialNumber_Click(object sender, EventArgs e)
{
int[] CurrentAdd = new int[1];
byte[] SerialNUM = new byte[9];
for (int i = 0; i < 9; i++)
SerialNUM[i] = 0x00;
string aSN = "";
IF (0 == CV_GetSerialNum(0, CurrentAdd, SerialNUM))
{
SerialNUM[8] = 0x00;
IF (SerialNUM[0] == 0xFF)
aSN = "FFFFFFFF";
ELSE
{
for (int i = 0; i < 64; i++)
{
IF (0 == SerialNUM[i])
BREAK;
ELSE aSN += Convert.ToString(Convert.ToChar(SerialNUM[i]));
}
}
tbSerial.Text = aSN;
}
}

WX - Json X httprequest + httpgetresult

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/1569-json-httprequest-httpgetresult/read.awp

Publicado em agosto, 04 2016 - 9:39 AM

Bonjour,

Endereço: http: // server / ao ar livre / Serviço / api / login

Conteúdo do JSON contendo o usuário e a senha: { "username", "user", "password", "*****"}

A função, em seguida, retorna uma permissão de sessão que será usado para autenticar futuro consultas.

O ticket token é: TICKET_b1ea7f2a00253859999dc27be19faccf6c3c89f7

Para qualquer pedido futuro, você deve então fazer algo parecido com isto:

//Example
CommandeAlfresco est un HTTPRequête
ReponseAlfresco est un httpRéponse
CommandeAlfresco.Utilisateur="ROLE_TICKET"
CommandeAlfresco.MotDePasse="TICKET_b1ea7f2a00253859999dc27be19faccf6c3c89f7"
CommandeAlfresco.ContentType="application/json"
CommandeAlfresco.Méthode=httpPost
CommandeAlfresco.URL="http://serveur/alfresco/service/api/sites" //pour lister les sites présent
ReponseAlfresco = HTTPEnvoie(CommandeAlfresco)

Curso WinDev - Multimdia - 001 - MultimediaOpen/Play/Pause/Close

Video Youtube

Nessa aula vou mostrar como abrir,comecar,pausar,terminar video multimidia

In this lecture I will show how to open, start, pause, end multimedia video

Dans cette conférence, je vais vous montrer comment ouvrir, démarrer, mettre en pause, fin vidéo multimédia

sFile is string
sFile = fSelect("", "", "Select a file...", "Video" + TAB + "*.avi", "*.avi")
EDT_nome_video=sFile
//
MultimediaOpen(MM_video,EDT_nome_video)
MultimediaPlay(MM_video)
MultimediaPause(MM_video)
MultimediaClose(MM_video)
//

sFile est chaîne
sFile = fSélecteur("", "", "Select a file...", "Video" + TAB + "*.avi", "*.avi")
EDT_nome_video=sFile
//
MultimédiaOuvre(MM_video,EDT_nome_video)
MultimédiaJoue(MM_video)
MultimediaPause(MM_video)
MultimédiaFerme(MM_video)
//