Buttonabhängiges Schließen des Programms

[hans ditter]

@ Lucki: Das ist ja das Merkwürdige. Es gibt ja eine Fehlerbehandlung. Bei OnClientError (oder so ähnlich heisst das ja) wird ja auf jeden Fehler reagiert und der Fehlercode auf '0' gestellt, damit kein Fenster aufpoppt.
Aber irgendwie funktioniert das nicht mehr.

@ DeddyH: Vielleicht könntest du nochmal für Deppen erklären, wie das funktionieren soll. (Wie du diese Unit machst / wie du auf die Komponenten dann zugreifst)

[OFFTOPIC] @SirRufo: Da du das ansprichtst. Könntest du da mal ein paar Links posten, oder Stichwörter nach denen ich suchen kann? [/OFFTOPIC]

[hans ditter]

Also, ich hab das Probelm mit den Fehlern wieder hinbekommen. Aus irgendeinem kühlen Grund, bestand die Zuweisung der Ereignisroutine zu dem ClientSocket nicht mehr. Konnte ich wieder durch Dplklicken im OI herstellen. Das funktioniert wieder! Tut mir nochmal Leid für meinen Wutanfall...

@DeddyH: Vielleicht könntest du trotzdem mal posten, wie genau man das jetzt macht, ohne das Programm neu zu schreiben.

Vielen Dank!
hans ditter

[Sir Rufo]

TortoiseSVN TortoiseHg

[DeddyH]

Und zum Datenmodul: das kann ich auch nicht besser beschreiben als die Hilfe selbst: http://docwiki.embarcadero.com/VCL/d...es.TDataModule

[hans ditter]

Wow, cool! Das hat funktioniert! Danke für den Link! Sollte häufiger mal auf diese Seite schauen...
Mir ist aber aufgefallen, dass man immer

Code:

Unit3.DataModule3.{...}

schreiben muss, um auf Komponenten zugreifen zu können. Geht das nicht einfacher? Das man irgendwie definieren kann, dass var Unit3.DataModule3: DataModule; ist?

Das wär noch ganz nett, aber erstmal vielen Dank dafür soweit!

hans ditter

[DeddyH]

Es steht Dir doch frei, eine entsprechende Variable zu deklarieren und zu belegen.

[hans ditter]

Ja, das dachte ich auch. Ich poste mal den Anfang vom Quellcode...

Delphi-Quellcode:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, ComCtrls, StrUtils, superobject, ExtCtrls;

const
  MY_PORT = 30000; // an diesem Port wartet der Server auf Clients

type
  TForm1 = class(TForm)
    ServerAdress: TEdit;
    Online: TCheckBox;
    Input: TEdit;
    BtnSend: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    log: TRichEdit;
    lstUsers: TListBox;
    edtOwnUserNick: TEdit;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    combContentSize: TComboBox;
    combContentColor: TComboBox;
    combContentStyle: TComboBox;
    ClientSocket: TClientSocket;
    procedure FormCreate(Sender: TObject);
    procedure OnlineClick(Sender: TObject);
    procedure BtnSendClick(Sender: TObject);
    procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormDestroy(Sender: TObject);
    procedure InputKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit3;

var
  DataModule: Unit3.TDataModule3;

Während der Entwicklungszeit geht das auch alles ohne Fehler. Der Fehler tritt aber auf, wenn
DataModule.ClientSocket.Port:=MY_PORT; aufgerufen wird.
Dann sagt er, dass eine EAccessViolation aufgetreten ist. Wie hab ich das dann denn zu verstehen?

lg, hans ditter