Komponente von Delphi nach CBuilder übersetzen

[ronnym]

hi...

im folgenden handelt es sich um ein dbimage...

wer kann mir diesen delphi quellcode in brauchbares c++ builder material übersetzen???
<PRE>
unit umDBImage;

interface

uses
Windows, Messages, Classes, Controls,
ExtCtrls, DB, DBCtrls;

type
TumDBImage = class(TImage)
private
FDataLink: TFieldDataLink;
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TMessage); message CM_GETDATALINK;

procedure DataChange(Sender: TObject);
protected
procedure Loaded; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;

procedure LoadPicture; virtual;
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;

property Field: TField read GetField;
published
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
end;

procedure Register;

implementation

uses Graphics, {$IFDEF USEGIF} GIFImage, {$ENDIF} JPEG;

{ TumDBImage }
constructor TumDBImage.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
ControlStyle := ControlStyle + [csReplicatable];
FDataLink := TFieldDataLink.Create;
FDataLink.Control := Self;
FDataLink.OnDataChange := DataChange;
end;

destructor TumDBImage.Destroy;
begin
FDataLink.Free;
FDataLink := nil;
inherited Destroy;
end;

procedure TumDBImage.Loaded;
begin
inherited Loaded;
if (csDesigning in ComponentState) then DataChange(Self);
end;

procedure TumDBImage.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) and (FDataLink <> nil) and
(AComponent = DataSource) then DataSource := nil;
end;

function TumDBImage.GetDataSource: TDataSource;
begin
Result := FDataLink.DataSource;
end;

procedure TumDBImage.SetDataSource(Value: TDataSource);
begin
FDataLink.DataSource := Value;
if Value <> nil then Value.FreeNotification(Self);
end;

function TumDBImage.GetDataField: string;
begin
Result := FDataLink.FieldName;
end;

procedure TumDBImage.SetDataField(const Value: string);
begin
FDataLink.FieldName := Value;
end;

function TumDBImage.GetField: TField;
begin
Result := FDataLink.Field;
end;

procedure TumDBImage.CMGetDataLink(var Message: TMessage);
begin
Message.Result := Integer(FDataLink);
end;

procedure TumDBImage.DataChange(Sender: TObject);
begin
if FDataLink.Field <> nil then
LoadPicture
else
Picture.Graphic := nil;
end;

procedure TumDBImage.LoadPicture;
var
IsJPG: Boolean;
MS: TMemoryStream;
JPG: TJPEGImage;
{$IFDEF USEGIF}
GIF: TGIFImage;
{$ENDIF}
begin
if not Field.IsBlob then
begin
Picture.Graphic := nil;
Exit;
end;

with Field as TBlobField do
begin
IsJPG := Pos('JFIF', Copy(Value, 1, 10)) <> 0;
if not IsJPG then // if not JPG
if Copy(Value, 1, 3) <> 'GIF' then // and not GIF
begin
Picture.Assign(Field); // this is BMP ??
Exit;
end;
end;

MS := TMemoryStream.Create;
try
TBlobField(Field).SaveToStream(MS);
MS.Seek(soFromBeginning, 0);

if IsJPG then
begin
JPG := TJPEGImage.Create;
try
JPG.LoadFromStream(MS);
Picture.Assign(JPG);
finally
JPG.Free;
end;
end
else
begin
{$IFDEF USEGIF}
GIF := TGIFImage.Create;
try
GIF.LoadFromStream(MS);
Picture.Assign(GIF);
finally
GIF.Free;
end;
{$ELSE}
Picture.Graphic := nil;
{$ENDIF}
end;
finally
MS.Free;
end;
end;

procedure Register;
begin
RegisterComponents('UtilMind', [TumDBImage]);
end;

end.
</PRE>

danke schon jetzt

mfg
ronny

[Udo Galle]

Hallo,

ich würde versuchen, das Delphi-Unit zu importieren und mit dem C++-Builder zu übersetzen.

Hierzu einfach Delphi-Unit ins Projekt aufnehmen und übersetzen

[ronnym]

hi...

hab ich probiert...

geht leider nicht....

wenn ich die anwendung kompilieren will, sagt er, das ein lesefehler der *.pas aufgetreten ist....

mfg
ronn

[Udo Galle]

Lesefehler kann ich mir nicht erklären. Es werden auf jeden Fall Schreibrechte benötigt, da beim Übersetzungsvorgang vom C++-Builder eine C++-Header-Datei erstellt wird.

mfg Ud