Programm läuft nur auf einem Rechner, sonst -> absturz

[_p_]

guten tach

also mein prob:

habe mit den socket komponenten nen server programm geschrieben, dass einwandfrei funktioniert und startet wenn ich es auf meine eigenen rechner starte ( wo es programiert wurde / auch wenn direkt die exe gestartet wird , also net ausm compiler läuft es einwandfrei)

starte ich das programm nun auf einem anderen pc sagt windows immer sofort "bla.exe hat ein Problem festgestellt und muss beendet werden."

der fehlerbericht den er senden will bringt auch keine aussagekräftigen informationen für mich


hatte jemand schon mal das problem oder kennt sich damit aus?

thx & mfg

p

[Jelly]

Benutzt du vielleicht noch die BDE in deinem Programm, und diese ist auf dem Fremdrechner nicht installiert?

[SirThornberry]

benutzt du eventuell ein port das auf dem anderen rechner schon in verwendung ist? Versuch mal den Server erst activ zu setzen wenn das programm schon gestartet ist, also ob es dann startet.

[_p_]

Zitat:

benutzt du eventuell ein port das auf dem anderen rechner schon in verwendung ist? Versuch mal den Server erst activ zu setzen wenn das programm schon gestartet ist, also ob es dann startet.

hab mal komplett server deaktiviert.
startet tortzdem net

Zitat:

Benutzt du vielleicht noch die BDE in deinem Programm, und diese ist auf dem Fremdrechner nicht installiert?

das programm lief schonmal, hab dann jede menge neuen code geschrieben (der allerdings beim starten net ausgeführt wird) aber keine neue komponente eingefügt
nur mit den vorhandnen gearbeitet und dann wollte ich es nochmal testen bei mir aufm server und es ging einfach net mehr

[PierreB]

Häng doch am besten deinen Source mal hier an, dann kann man es leichter herausfinden als wenn wir raten.

[_p_]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type

  currentplayers = record
   name : array[1..8] of string[10];
   number : integer;
   end;

  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    memo1: TMemo;
    ListBox1: TListBox;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure send(var rec : currentplayers; art,msg,all : string);

  private
    { Private-Deklarationen }
  public

    { Public-Deklarationen }
  end;


var
  Form1: TForm1;
  first : boolean; //entweder/oder für onclientread
  art : string; //was wird gesendet
  player : currentplayers; //speichert wieviel spieler connected sind und deren namen
  ohne : integer; //an welche connection wird nicht gesendet
  a,b,c : integer;  // counter


implementation

procedure TForm1.FormCreate(Sender: TObject);
begin

  serversocket1.port := 1337;
  serversocket1.Active := true; // starte connection
  first := true;
  player.number :=  0;
  ohne := -1;

end;

das is der code der nur beim starten ausgeführt wird

[Masterof]

Hallo!

Hast du es schon mal auf einem 3. PC probiert? Es kann sein, dass deine Windowsinst. einen
Fehler hat. Das kommt vor, ist bei mit schon auch passiert.

MfG Masterof

[PierreB]

Für was ist denn die Variable "first" da ?
Sonst müsste es eigentlich gehen..

[_p_]

Zitat:

Hast du es schon mal auf einem 3. PC probiert? Es kann sein, dass deine Windowsinst. einen
Fehler hat. Das kommt vor, ist bei mit schon auch passiert.

sogar schon auf dritten und viertem
mit firewall ohne fireall, mit antivirus ohne antivirus usw.

Für was ist denn die Variable "first" da ? öhm die is nur dazu da um in der onclientread proc zu regeln was ausgeführt wird
somit also nicht beim start relevant