unit Pfadkopie;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg, ExtDlgs;
type
Bilddaten =
record
RTitel, RAutor, RThema, RAufnahmekontext, RBlende, RBZ1, RBZ2, RBG1, RBG2,
RAuflösung, RSchlagworte, RBeschreibung, RDat1, RDat2, RDat3, RAFormat:
string[100];
end;
procedure Pfad;
procedure Einlesen;
procedure Speichern;
procedure Laden;
procedure Schreiben;
var
Datensatz: Bilddaten;
implementation
uses unit1, unit3;
procedure Pfad;
var Zieldatei:
string;
begin
if Form1.OpenPictureDialog1.Execute
then
begin
Form3.close;
ZielDatei:= Form1.OpenPictureDialog1.FileName;
Form1.Image2.Picture.LoadFromFile(Zieldatei);
Form1.image2.Stretch:= true;
Form1.image2.proportional:=true;
Form1.image2.show;
Form1.Enabled := false;
Form3:= TForm3.Create(Application);
Form3.Show;
Form3.Label20.Caption:= ExtractFileExt(Zieldatei);
Form3.Label17.Caption:= Zieldatei;
end;
end;
procedure Einlesen;
begin
Datensatz.RTitel:= Form3.Edit13.Text;
Datensatz.RAutor:= Form3.Edit2.Text;
Datensatz.RThema:= Form3.Edit3.Text;
Datensatz.RAufnahmekontext:= Form3.Edit4.Text;
Datensatz.RBlende:= Form3.Edit1.Text;
Datensatz.RBZ1:= Form3.Edit8.Text;
Datensatz.RBZ2:= Form3.Edit9.Text;
Datensatz.RBG1:= Form3.Edit5.Text;
Datensatz.RBG2:= Form3.Edit6.Text;
Datensatz.RAuflösung:= Form3.Edit10.Text;
Datensatz.RSchlagworte:= Form3.Edit7.Text;
Datensatz.RBeschreibung:= Form3.Memo1.Text;
Datensatz.RDat1:= Form3.ComboBox1.Text;
Datensatz.RDat2:= Form3.ComboBox2.Text;
Datensatz.RDat3:= Form3.ComboBox3.Text;
Datensatz.RAFormat:= Form3.ComboBox6.Text;
end;
procedure Speichern;
var datei:
file of Bilddaten;
begin
if Form1.Savedialog1.Execute
then
begin
try
assignfile(Datei,Form1.Savedialog1.FileName);
rewrite(datei);
write(datei, Datensatz);
finally
closefile(datei);
end;
end;
end;
procedure Laden;
var Datei:
file of Bilddaten;
begin
if Form1.OpenDialog1.Execute
then
begin
assignfile(datei, Form1.OpenDialog1.FileName);
reset(datei);
read(Datei, Datensatz);
closefile(datei);
end;
end;