.ard datenbanken in delphi einbinden...

[EvilCodein]

ich brauche in meinem Programm eine Schnittstelle zu einer .ard datenbank. Ich kann im Inet nichts brauchbares finden...
Was ich schon rausgefunden hab ist, das es ein Programm namens Starfish Sidekick gibt, welches ebenfalls solche datenbanken benutzt. wenn jemand Kwon how zu diesem Thema hat, würde ich mich freuen...

thx im voraus...

codein

[Stevie]

Hi EvilCodein,

ich hab mal ein bisschen gegoogelt und das hier gefunden. Eventuell hilft dir das weiter. :gruebel:

MfG
Stevie

[EvilCodein]

thx but not good...

Hier ist die Datenbank, hat jemand ne idee?

[Stevie]

1. Bist du dir sicher, dass du die Datei hier reinstellen darfst??
2. Sieht aus, wie ne Flat-File im Binärformat, wo einfach ein Datensatz nach dem nächsten kommt. Dürfte nicht schwer sein, dass Ding auszulesen.

[EvilCodein]

Ich weiß nicht, aber die firma die die Software vor jahren programmiert hat, wir sicher nicht wind davon bekommen, das ich eine datei von dem Programm hier rein stelle. Ich muss einfach nur die datensätze auslesen können, da ich die Kundendaten aus dieser Datenbank brauche.
Meinst du es ist kein großes Problem?

[Stevie]

Zitat:

Zitat von EvilCodein

Meinst du es ist kein großes Problem?

Nö, geht einfach, wenn du die Datei mal in nem Hex-Editor anschaust, wirst du sehen warum. ;-)
Mit sequenziellen Lesen/Schreiben dürfte es relativ schnell/einfach gehen, die Datei ein-/auszulesen.

Ich seh in der Datei jetzt nur eine "Tabelle", gibt's für jede Tabelle so eine Datei?

[EvilCodein]

Jo für jede Tabelle gibt es eine Datei. ich schau mir das mal kurz im Hex-editor an...
Kann ich das auch gleich mit delphi machen? Also mittels eine Hex-Prozedur die Daten auslesen? Ich hab dazu echt keine Ahnung..

[EvilCodein]

Ehm also ich hab dat jetzt ma kurz mit nem Hex-editor angeschaut und ich habe keine verbesserung zu der ansicht im Wordpad empfunden. Das einzige was sich im HEX-editor verändert ist, das man natürlich den Quellcode auch in Hexadezimal hat, aber nix anderes, also denke ich, das diese idee auch vor den Baum ging....

[FBrust]

Hallo,

hast Du schon mal bei Borland angefragt?

Denn Starfish ist ein Name unter dem Borland früher Software angeboten hat (unter anderem auch Sidekick...) :cyclops: .


Gruß


Frank

[EvilCodein]

nee hab ich noch nicht, das ding ist nur, das ich glaube, das diese Datei nicht wirklich etwas mit Starfish Sidekick zu tun hat. Ich werd das aber jetzt mal machen.....

[EvilCodein]

Ich kann auf der Seite von Borland nichts lokratives finden, an welches ich eine email schicken könnte...
das einzige was ich gefunden hab ist [e-mail] und ich weiß nicht so recht, ob mir das nützt.

[Stevie]

Ich hab mal ein kleines Programm zusammengeschludert, welches dir zeigt, wie du die Daten aus der Datei herausbekommst: ;-)

Delphi-Quellcode:

program ARDReader;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TARDRecord = packed record
    ID: array[1..13] of Char;
    Anrede: array[1..13] of Char;
    Art: array[1..13] of Char;
    Kunde: array[1..61] of Char;
    Name: array[1..87] of Char;
    Strasse: array[1..61] of Char;
    PLZ: array[1..10] of Char;
    Ort: array[1..41] of Char;
    Tel: array[1..21] of Char;
    Mobil: array[1..21] of Char;
    Buffer: array[1..102] of Char;
    Datum: array[1..16] of Char;
    Preis: array[1..16] of Char;
    Feld1: array[1..1] of Char;
    Feld2: array[1..6] of Char;
    Anzahl: array[1..6] of Char;
    Feld3: array[1..61] of Char;
    Feld4: array[1..61] of Char;
  end;

var
  ARDFile: file of TARDRecord;
  ARDRecord: TARDRecord;
  RecordCount: Integer = 0;

begin
  AssignFile(ARDFile, 'C:\Kunden.ard');
  Reset(ARDFile);
  WriteLn('Größe pro Datensatz: ' + IntToStr(SizeOf(TARDRecord)) + ' Byte');
  WriteLn;
  while not Eof(ARDFile) do
  begin
    Read(ARDFile, ARDRecord);
    WriteLn(
      ARDRecord.ID +
      ARDRecord.Anrede +
      ARDRecord.Art +
      ARDRecord.Kunde +
      ARDRecord.Name +
      ARDRecord.Strasse +
      ARDRecord.PLZ +
      ARDRecord.Ort +
      ARDRecord.Tel +
      ARDRecord.Mobil +
      ARDRecord.Buffer +
      ARDRecord.Datum +
      ARDRecord.Preis +
      ARDRecord.Feld1 +
      ARDRecord.Feld2 +
      ARDRecord.Anzahl +
      ARDRecord.Feld3 +
      ARDRecord.Feld4);
    Inc(RecordCount);
  end;
  WriteLn;
  WriteLn('Anzahl der Datensätze: ' + IntToStr(RecordCount));
  CloseFile(ARDFile);
  ReadLn;
end.

MfG
Stevie

[EvilCodein]

fett danke erst ma....
werd da mal dran rum basteln.

hab vielen lieben dank.
Codein