AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Bild in TImage --> jpeg-Fehler #52
Thema durchsuchen
Ansicht
Themen-Optionen

Bild in TImage --> jpeg-Fehler #52

Ein Thema von Nisbo · begonnen am 1. Aug 2006 · letzter Beitrag vom 1. Aug 2006
Antwort Antwort
Nisbo

Registriert seit: 10. Mär 2005
191 Beiträge
 
Delphi 5 Standard
 
#1

Re: Bild in TImage --> jpeg-Fehler #52

  Alt 1. Aug 2006, 14:56
mmm asche auf mein haupt, war ne kleine fehlinfo dabei, in dem teil arbeite ich gar nicht mit den indys sondern habe da ne funktion gefunden welche ich an meine bedürfnisse angepasst habe, die ganze funktion schaut so aus eventuell hilft das weiter

Delphi-Quellcode:
function DownloadURL(const aUrl: string; bildart: string): Boolean;
var
  hSession: HINTERNET;
  hService: HINTERNET;
  lpBuffer: array[0..1024 + 1] of Char;
  dwBytesRead: DWORD;
  aStream : TFileStream;
begin
  Result := False;
  hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hSession) then begin
      hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, 0, 0);
      if Assigned(hService) then
        try
          aStream := TFileStream.Create('temp_bild'+ ExtractFileExt(aURL), fmCreate);
          while True do begin
            dwBytesRead := 1024;
            InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
            if dwBytesRead = 0 then break;
            lpBuffer[dwBytesRead] := #0;
            aStream.WriteBuffer(lpBuffer, dwBytesRead);
          end;
          aStream.Position := 0;

          // JPG
          if bildart = 'jpgthen begin
          try
            Form2.Image1.Visible := true;
            form2.image1.Picture.Graphic.LoadFromStream(aStream);
            except
               // showmessage('fehler'); // jpeg-Fehler #52
               on E: Exception do showmessage('Fehler beim Laden des Artikelbildes');
            end;
          end;

          // Gif
          if bildart = 'gifthen begin
            Form2.Image2.Visible := true;
            form2.image2.Picture.Graphic.LoadFromStream(aStream);
          end;

          Result := True;
        finally
          FreeAndNil(aStream);
          InternetCloseHandle(hService);
        end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;
Jens
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz