26 respuestas en este tema

[enecumene]

Si no he interpretado mal el manual dentro del valor VV trae varios datos incluyendo un bitmap.

 

Saludos.

[TMFV]

Buenas noches,

 

los datos que colocaste ahi no se corresponden con una imagen, al menos con ningun formato conocido (bmp, jpg, png, etc ...), mas bien parecen una serie de valores de una grafica.

 

Si decodificamos el base64 tenemos la siguiente lista de valores:

php

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 3 3 4 5 6 6 7 9 11 12 16 20 26 33 41 54 65 81 97 113 134 154 173 193 209 228 241 247 255 253 249 241 228 216 202 187 173 154 140 123 106 92 77 66 54 44 36 30 24 20 16 14 12 10 9 7 7 6 5 5 5 5 4 4 4 4 3 3 3 3 3 3 3 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 3 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Que puestos sobre una grafica da la siguiente imagen:

Sin título.jpg

 

Que tiene pinta de ser una medicion de algun tipo.

 

En resumen, que lo que tienes que haces es decodificar el base64 y pintar tu los valores sobre una grafica si quieres verlos.

 

Saludos

 

Seoane, Podrias colaborarme en la forma de como visualizar esos datos decodificados en un memo desde delphi 7 porfavor. desde php lo se hacer pero no desde delphi.

 

Agradezco tu ayuda...

 

Ya que estoy recibiendo mas tramas de diferentes equipos hematologicos y me gustaria perfeccionar la tecnica... agradezco su ayuda en cualquier caso.

[escafandra]

Puedes usar esta función:

delphi

function MemoryStreamToString(MS: TMemoryStream): String;
var
  n:  integer;
  P: PBYTE;
begin
  P:= MS.Memory;
  for n:= 0 to MS.Size-1 do
  begin
//    Result:= Result + IntToHex(P^, 2);  // Para convertir a hexadecimal
    Result:= Result + IntToStr(P^);       // Para decimal
    if n < MS.Size-1 then Result:= Result + ', ';
    inc(P);
  end;
end;

Un ejemplo de uso:

delphi

var
  MS: TMemoryStream;
begin
  MS:= TMemoryStream.Create;
  StrB64ToStream(Memo1.Text, MS);         // El texto Base64
  Memo2.Text:= MemoryStreamToString(MS);  // convertido a números en texto
  MS.Free;
end;

Saludos.

[TMFV]

Puedes usar esta función:

delphi

function MemoryStreamToString(MS: TMemoryStream): String;
var
  n:  integer;
  P: PBYTE;
begin
  P:= MS.Memory;
  for n:= 0 to MS.Size-1 do
  begin
//    Result:= Result + IntToHex(P^, 2);  // Para convertir a hexadecimal
    Result:= Result + IntToStr(P^);       // Para decimal
    if n < MS.Size-1 then Result:= Result + ', ';
    inc(P);
  end;
end;

Un ejemplo de uso:

delphi

var
  MS: TMemoryStream;
begin
  MS:= TMemoryStream.Create;
  StrB64ToStream(Memo1.Text, MS);         // El texto Base64
  Memo2.Text:= MemoryStreamToString(MS);  // convertido a números en texto
  MS.Free;
end;

Saludos.

 

Hola, Escandrafa, gracias por tu ayuda... me gustaría saber se donde sacas esta función <StrB64ToStream(Memo1.Text, MS);> del código ya citado: linea 5 del segundo bloque de código, donde haces la implementación. Muchas gracias.

[egostar]

Hola, Escandrafa, gracias por tu ayuda... me gustaría saber se donde sacas esta función <StrB64ToStream(Memo1.Text, MS);> del código ya citado: linea 5 del segundo bloque de código, donde haces la implementación. Muchas gracias.

 

Hola tatiana fuentes

 

Esa función data de hace 7 años y la puedes ver en el siguiente enlace:

 

http://delphiaccess....ificada-base64/

 

Saludos

[escafandra]

Hola, Escandrafa, gracias por tu ayuda... me gustaría saber se donde sacas esta función <StrB64ToStream(Memo1.Text, MS);> del código ya citado: linea 5 del segundo bloque de código, donde haces la implementación. Muchas gracias.

Tal como te indica egostar es una función que está en el foro y también la publiqué en este mismo hilo aquí y aquí. Es por esto que no la volví a repetir.

 

 

Saludos.

[TMFV]

Tal como te indica egostar es una función que está en el foro y también la publiqué en este mismo hilo aquí y aquí. Es por esto que no la volví a repetir.

 

 

Saludos.

Muvhas gracias por mostrarme los hilos.