Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: jpeg- fehler #53

   
    by Delphi.Narium, 15. Mai 2019
  if lGetRecord(lpTblGraph, 1) then
  begin
  {$IFDEF TITAN}
  laImage := GetBlob(lpTblGraph);
  {$ENDIF} // DEF TITAN
  lmstImage.Clear;
  lmstImage.Write(laImage, Length(laImage));
  lmstImage.Position := 0;
  lmstImage.Read(Buffer,2); // <- geändert
  Buffer := Swap(Buffer);
• Forum: Programmieren allgemein

  AW: jpeg- fehler #53

   
    by Delphi.Narium, 14. Mai 2019
  Ungefähr sowas:
  function GetIsJPG(fFilename : String) : Boolean;
  var
  Buffer : packed array of Byte;
  BytesRead : DWORD;
  fFileHandle : THandle
  begin
  fFileHandle := CreateFile(PAnsiChar(fFileName),
  GENERIC_READ,
  FILE_SHARE_READ or FILE_SHARE_WRITE or FILE_SHARE_DELETE,