Gemme JPEG billede i Access DB

function SaveToBlob(const Stream: TStream; const AField: TField): boolean;
var
  FieldStr          : string;
  PFieldStr        : PChar;
begin
  Result := false;
  if (Assigned(AField)) and (Assigned(Stream)) then
  begin
    try
      Stream.Seek(0, 0);
      SetLength(FieldStr, Stream.Size);
      PFieldStr := PChar(FieldStr);
      Stream.Read(PFieldStr^, Stream.Size);
      AField.Value := FieldStr;
      Result := true;
    except
    end;
  end;
end;


function LoadFromBlob(const AField: TField; const Stream: TStream): boolean;
var
  ResultStr        : string;
  PResultStr        : PChar;
begin
  Result := false;
  if (Assigned(AField)) and (Assigned(Stream)) then begin
    try
      ResultStr := AField.Value;
      PResultStr := PChar(ResultStr);
      Stream.Write(PResultStr^, Length(ResultStr));
      Stream.Seek(0, 0);
      Result := true;
    except
    end;
  end;
end;
Bare husk at kalde insert inden man kalder dem.

hov...

så bliver det noget lign:

var
  ms          : tmemorystream;
begin
  ms := tmemorystream.Create;
  JPEGIMG.SaveToStream(ms);

  ADODataSet.Insert;
  SaveToBlob(ms2, ADODataSet.FieldByName('Image'));
  ms.Free;
end;

Hmm hvad kan jeg så gøre hvis jeg skal have filnavnet JPEGIMG fra en dialog (opendialog)?

Og hvordan ville jeg loade billedet fra LoadBlob funktionen ind i et Image?

Okay klarede selv det første. Men kan ikke få Load funtionen til at loade til et image. Hvordan gør jeg det?

Nå fandt ud af dem begge :) Blot et spørgsmål jeg har problemer med. Hvordan loader jeg gemmer jeg et TImage til en stream?

Prøv evt. at kigge i hjælpen under BlobStream, der er et udemærket eks. på hvordan, det er ca. 4-5 liner du skal skrive så kører det :)

Fandt ud af det uden. Men tak alligevel :)
Giver dig lige point dkn ;) Tak for hjælpen :D