WebApp: Billede skal retur

Prøv med dette:

var
  MemStrm: TMemoryStream;
  Bitmap: TBitmap;
  JPEG: TJPEGImage;
begin
  MemStrm := TMemoryStream.Create;
  Bitmap := TBitmap.Create;
  JPEG := TJPEGImage.Create;

  Bitmap.LoadFromFile('C:\test.bmp');
  JPEG.Assign(Bitmap);
  JPEG.SaveToStream(MemStrm);
  MemStrm.Position := 0;

  Response.ContentType := 'image/jpeg';
  Response.CotentStream := MemStrm;

  JPEG.Free;
  Bitmap.Free;
end;

Der kommer bare et billede, med et kryds i...
Det behøver muligvis ikke være JPEG - bitmap kan også bruges

det kode jeg har lavet til dig åbner jo nettop en bitmap fil, laver den til jpg og sender den

Ohh - I see.. :)
Men nu ville jeg ikke have åbnet en fil, men returere et billede, der bli'r lavet "runtime"...

Det her kan måske lede dig på sporet af hvad jeg mener..

var
  Bar: TBarcode;
  MemStrm: TMemoryStream;
  Bitmap: TBitmap;
begin
  Bar := Tbarcode.Create(nil);
  Bar.Height := 100;
  Bar.Text := Request.QueryFields[0];
  Bar.Typ := bcCode128C;
  Bar.ShowText := bcoCode;
  MemStrm := TMemoryStream.Create;
  Bitmap := TBitmap.Create;
  Bar.DrawBarcode(Bitmap.Canvas);
  Bitmap.SaveToStream(MemStrm);
  MemStrm.Position := 0;

  Response.ContentType := 'image/bmp';
  Response.ContentStream := MemStrm;
 
  Bitmap.Free;
end;

ehm ja men hvad er dit problem så ligenu?
Jeg kender jo ikke TBarcodes methods, så det er svært at hjælpe dig videre.
Du kan evt sende TBarcode component og project til dkn@pc.dk

Sendt...

jeg står der, at alt hvad der er i mit browser, er et "broken" billede...

var
  Bar: TAsBarcode;
  MemStrm: TMemoryStream;
  Bitmap: TBitmap;
begin
  Bar := TAsBarcode.Create(nil);
  MemStrm := TMemoryStream.Create;
  Bitmap := TBitmap.Create;

  Bar.Height := 50;
  Bar.ShowTextPosition := stpBottomCenter;
  Bar.Text := '1234';
  Bar.Typ := bcCode128C;
  Bar.ShowText := bcoCode;

  Bitmap.Height := Bar.Height;
  Bitmap.Width := Bar.Width;

  Bar.DrawBarcode(Bitmap.Canvas);

  Bitmap.SaveToFile('test.bmp'); //Debug
  Bitmap.SaveToStream(MemStrm);
  MemStrm.Position := 0;

  Response.ContentType := 'image/bmp';
  Response.ContentStream := MemStrm;

  Bitmap.Free;
  Bar.Free;
end;

det der virker