unit testjpegextraction; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Psock, NMHttp; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; ok: TButton; cancel: TButton; Image1: TImage; NMHTTP1: TNMHTTP; procedure Button1Click(Sender: TObject); function callb(error : integer;mes : string) : boolean; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses getcoverart,gethttpdoc; function Tform1.callb(error : integer;mes : string) : boolean; begin memo2.lines.add(mes); application.processmessages; end; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var fs : tfilestream; src : tmemorystream; n : integer; gd : tgetdoc; begin cb:=callb; if gd.getdocument('http://www.librarysmith.co.uk/kiosk/engine.php?artist=black%20sabbath&user=matty',src)=true then begin uncompress(src); src.free; end; for n:=1 to 10 do begin image1.Picture.Assign(covers[n].image); sleep(100); application.processmessages; end; end; end.