Wie Bilddatei in ein TClientDataSet eintragen ?

[madina]

Hallo,

ich habe die Lösung gefunden:

Delphi-Quellcode:

    
    cds.Open;
    cds.Insert;
    try
        Stream:= cds.CreateBlobStream(cds.Fields.FieldByName('TheGraphicFieldNameHere'), bmWrite);
        try
            TheIcon.SaveToStream(Stream);
        finally
            Stream.Free;
        end;
        cds.Post;
    except
        cds.Cancel;
        raise;
    end;

mfg