Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-06-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Leer comentarios en un archivo Jpeg

Código Delphi [-]
function LeerCom(Stream: TStream): string;
var
  Buffer: array[0..$FFFF] of Char;
  Header: array[1..4] of byte;
  Size: Integer;
begin
  Stream.Seek(0,soFromBeginning);
  Stream.ReadBuffer(Header,2);
  if (Header[1] <> $FF) or (Header[2] <> $D8) then
    raise Exception.Create('Identificador incorrecto');
  repeat
    Stream.ReadBuffer(Header,4);
    Size:= ((Header[3] shl 8) + Header[4]) - 2;
    case Header[2] of
      $FE: begin
             FillChar(Buffer,Sizeof(Buffer),0);
             Stream.ReadBuffer(Buffer,Size);
             Result:= String(PChar(@Buffer));
           end;
      $01,$D0..$D9: Stream.Seek(-2,soFromCurrent) ;
      else Stream.Seek(Size,soFromCurrent);
    end;
  until (Result <> '') or (Header[2] = $DA);
end;

Ejemplo de uso (Se utiliza un TOpenDialog):
Código Delphi [-]
var
  Stream: TFileStream;
begin
  if OpenDialog1.Execute then
  begin
    Stream:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      ShowMessage(LeerCom(Stream));
    finally
      Stream.Free;
    end;
  end;
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:29:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi