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.