Import gammu_1.38.5.orig.tar.xz

[dgit import orig gammu_1.38.5.orig.tar.xz]

5 files changed, 243 insertions, 0 deletions

diff --git a/contrib/win32/delphi7.gui/backup/dllapp/Project1.cfg b/contrib/win32/delphi7.gui/backup/dllapp/Project1.cfg
new file mode 100644
index 0000000..d237559
--- /dev/null
+++ b/contrib/win32/delphi7.gui/backup/dllapp/Project1.cfg
@@ -0,0 +1,38 @@
+-$A8

+-$B-

+-$C+

+-$D+

+-$E-

+-$F-

+-$G+

+-$H+

+-$I+

+-$J-

+-$K-

+-$L+

+-$M-

+-$N+

+-$O+

+-$P+

+-$Q-

+-$R-

+-$S-

+-$T-

+-$U-

+-$V+

+-$W-

+-$X+

+-$YD

+-$Z1

+-cg

+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

+-H+

+-W+

+-M

+-$M16384,1048576

+-K$00400000

+-LE"c:\program files2\delphi\Projects\Bpl"

+-LN"c:\program files2\delphi\Projects\Bpl"

+-w-UNSAFE_TYPE

+-w-UNSAFE_CODE

+-w-UNSAFE_CAST

diff --git a/contrib/win32/delphi7.gui/backup/dllapp/Project1.dof b/contrib/win32/delphi7.gui/backup/dllapp/Project1.dof
new file mode 100644
index 0000000..4195dfc
--- /dev/null
+++ b/contrib/win32/delphi7.gui/backup/dllapp/Project1.dof
@@ -0,0 +1,132 @@
+[FileVersion]

+Version=7.0

+[Compiler]

+A=8

+B=0

+C=1

+D=1

+E=0

+F=0

+G=1

+H=1

+I=1

+J=0

+K=0

+L=1

+M=0

+N=1

+O=1

+P=1

+Q=0

+R=0

+S=0

+T=0

+U=0

+V=1

+W=0

+X=1

+Y=1

+Z=1

+ShowHints=1

+ShowWarnings=1

+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

+NamespacePrefix=

+SymbolDeprecated=1

+SymbolLibrary=1

+SymbolPlatform=1

+UnitLibrary=1

+UnitPlatform=1

+UnitDeprecated=1

+HResultCompat=1

+HidingMember=1

+HiddenVirtual=1

+Garbage=1

+BoundsError=1

+ZeroNilCompat=1

+StringConstTruncated=1

+ForLoopVarVarPar=1

+TypedConstVarPar=1

+AsgToTypedConst=1

+CaseLabelRange=1

+ForVariable=1

+ConstructingAbstract=1

+ComparisonFalse=1

+ComparisonTrue=1

+ComparingSignedUnsigned=1

+CombiningSignedUnsigned=1

+UnsupportedConstruct=1

+FileOpen=1

+FileOpenUnitSrc=1

+BadGlobalSymbol=1

+DuplicateConstructorDestructor=1

+InvalidDirective=1

+PackageNoLink=1

+PackageThreadVar=1

+ImplicitImport=1

+HPPEMITIgnored=1

+NoRetVal=1

+UseBeforeDef=1

+ForLoopVarUndef=1

+UnitNameMismatch=1

+NoCFGFileFound=1

+MessageDirective=1

+ImplicitVariants=1

+UnicodeToLocale=1

+LocaleToUnicode=1

+ImagebaseMultiple=1

+SuspiciousTypecast=1

+PrivatePropAccessor=1

+UnsafeType=0

+UnsafeCode=0

+UnsafeCast=0

+[Linker]

+MapFile=0

+OutputObjs=0

+ConsoleApp=1

+DebugInfo=0

+RemoteSymbols=0

+MinStackSize=16384

+MaxStackSize=1048576

+ImageBase=4194304

+ExeDescription=

+[Directories]

+OutputDir=

+UnitOutputDir=

+PackageDLLOutputDir=

+PackageDCPOutputDir=

+SearchPath=

+Packages=

+Conditionals=

+DebugSourceDirs=

+UsePackages=0

+[Parameters]

+RunParams=

+HostApplication=

+Launcher=

+UseLauncher=0

+DebugCWD=

+[Version Info]

+IncludeVerInfo=0

+AutoIncBuild=0

+MajorVer=1

+MinorVer=0

+Release=0

+Build=0

+Debug=0

+PreRelease=0

+Special=0

+Private=0

+DLL=0

+Locale=1045

+CodePage=1250

+[Version Info Keys]

+CompanyName=

+FileDescription=

+FileVersion=1.0.0.0

+InternalName=

+LegalCopyright=

+LegalTrademarks=

+OriginalFilename=

+ProductName=

+ProductVersion=1.0.0.0

+Comments=

diff --git a/contrib/win32/delphi7.gui/backup/dllapp/Project1.dpr b/contrib/win32/delphi7.gui/backup/dllapp/Project1.dpr
new file mode 100644
index 0000000..08b344c
--- /dev/null
+++ b/contrib/win32/delphi7.gui/backup/dllapp/Project1.dpr
@@ -0,0 +1,13 @@
+program Project1;

+

+uses

+  Forms,

+  Unit1 in 'Unit1.pas' {Form1};

+

+{$R *.res}

+

+begin

+  Application.Initialize;

+  Application.CreateForm(TForm1, Form1);

+  Application.Run;

+end.

diff --git a/contrib/win32/delphi7.gui/backup/dllapp/Unit1.dfm b/contrib/win32/delphi7.gui/backup/dllapp/Unit1.dfm
new file mode 100644
index 0000000..6cdd1ff
--- /dev/null
+++ b/contrib/win32/delphi7.gui/backup/dllapp/Unit1.dfm
@@ -0,0 +1,25 @@
+object Form1: TForm1

+  Left = 289

+  Top = 219

+  Width = 375

+  Height = 265

+  Caption = 'Form1'

+  Color = clBtnFace

+  Font.Charset = DEFAULT_CHARSET

+  Font.Color = clWindowText

+  Font.Height = -11

+  Font.Name = 'MS Sans Serif'

+  Font.Style = []

+  OldCreateOrder = False

+  PixelsPerInch = 96

+  TextHeight = 13

+  object Button1: TButton

+    Left = 112

+    Top = 136

+    Width = 129

+    Height = 25

+    Caption = 'Button1'

+    TabOrder = 0

+    OnClick = Button1Click

+  end

+end

diff --git a/contrib/win32/delphi7.gui/backup/dllapp/Unit1.pas b/contrib/win32/delphi7.gui/backup/dllapp/Unit1.pas
new file mode 100644
index 0000000..e5bb112
--- /dev/null
+++ b/contrib/win32/delphi7.gui/backup/dllapp/Unit1.pas
@@ -0,0 +1,35 @@
+unit Unit1;

+

+interface

+

+uses

+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

+  Dialogs, StdCtrls;

+

+type

+  TForm1 = class(TForm)

+    Button1: TButton;

+    procedure Button1Click(Sender: TObject);

+  private

+    { Private declarations }

+  public

+    { Public declarations }

+  end;

+

+var

+  Form1: TForm1;

+

+implementation

+

+{$R *.dfm}

+

+procedure FBUS(APP: TApplication; Connection: String; Device: String); external 'dll.dll';

+

+procedure TForm1.Button1Click(Sender: TObject);

+begin

+//  FBUS(Application,'irdaphonet','');

+//  FBUS(Application,'fbus','com2:');

+  FBUS(Application,'fbusdku5','com2:');

+end;

+

+end.