Announcement

**Thomas Melchert** · 27.12.2000, 13:12

Hallo, 
 
der String wird schon eingef�gt, aber erst nachdem der Dialog wieder geschlossen wurde. Du musst "Chatdlg.Memo1.Lines.Add(S);" vor "ShowModal" ausf�hren. 
 
Gru� Thomas</p&gt

**Mike J.** · 27.12.2000, 13:46

Danke Thomas!!!

Ein Problem: Es werden aber mehrere Strings, nachdem der Dialog ge�ffnet wurde, an Chatdlg.Memo1 geschickt, aber sie werden nicht angezeigt!!!! Ich sch�tze ich muss das Memo im Dialog irgendwie updaten!! Aber wie???

Memo1.Update; -> geht nicht!
Memo1.Repaint -> geht nicht!

Wie kann ich also an das Memo im Dialog Strings schicken, die dann angezeigt werden???

Bitte um R�ckmeldung!!!

DANKE DANKE DANKE im voraus!!

mfg
MIK

27.12.2000, 16:06

Hi,

Zur Verdeutlichung:
Ich schicke von einer anderen Client-Anwendung einen String,
der dann von der Server-Anwendung in einem Chatfenster angezeigt werden soll!!! Doch das funzt nicht!!!

Hier der Source:

unit Main_Unit; 

interface 

uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer, TStringFunctions; 

type 
TServerF = class(TForm) 
Button1: TButton; 
Server: TIdTCPServer; 
Status: TMemo; 
procedure Button1Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure ServerStatus(axSender: TObject; const axStatus: TIdStatus; 
const asStatusText: String); 
procedure ServerConnect(AThread: TIdPeerThread); 
procedure ServerDisconnect(AThread: TIdPeerThread); 
procedure ServerExecute(AThread: TIdPeerThread); 
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private 
public 
{ Public-Deklarationen } 
geht: Boolean; 
ChatMsg: String; 
end; 

var 
ServerF: TServerF; 
SF: TStringFunction; 
weiter,Bool: Boolean; 

implementation 

uses Chatdlg_Unit; 

{$R *.DFM} 

procedure TServerF.Button1Click(Sender: TObject); 
begin 
weiter:=not weiter; 
if weiter=true then 
begin 
try 
Server.DefaultPort:=1462; 
Server.Active:=true; 
finally 
Button1.Caption:='&Disconnect...'; 
Status.Lines.Add('Server: Opened!'); 
end; 
end; 
if weiter=false then 
begin 
try 
Server.DefaultPort:=1462; 
Server.Active:=false; 
finally 
Button1.Caption:='Open &Clientconnection...'; 
Status.Lines.Add('Server: Closed!'); 
end; 
end; 
end; 

procedure TServerF.FormCreate(Sender: TObject); 
begin 
weiter:=false; 
geht:=true; 
Bool:=false; 
end; 

procedure TServerF.ServerStatus(axSender: TObject; const axStatus: TIdStatus; 
const asStatusText: String); 
begin 
Status.Lines.Add('Server: '+asStatusText); 
end; 

procedure TServerF.ServerConnect(AThread: TIdPeerThread); 
begin 
Status.Lines.Add('Server: Connected to Client!'); 
end; 

procedure TServerF.ServerDisconnect(AThread: TIdPeerThread); 
begin 
Status.Lines.Add('Server: Disconnected from Client!'); 
end; 

procedure TServerF.ServerExecute(AThread: TIdPeerThread); 
var 
S, Msg, ChatMsg, Titel, Icon, Buttons: string; 
FIcon, FButtons: LongInt; 
begin 
S:=AThread.Connection.ReadLn; 
if Copy(S,2,2)='10' then 
begin 
Titel:=SF.Titel(S); 
Msg:=SF.Msg(S); 
Icon:=SF.Icon(S); 
Buttons:=SF.Buttons(S); 
case Icon[1] of 
'0': FIcon:=0; 
'1': FIcon:=MB_ICONQUESTION; 
'2': FIcon:=MB_ICONINFORMATION; 
'3': FIcon:=MB_ICONWARNING; 
'4': FIcon:=MB_ICONERROR; 
end; 
case Buttons[1] of 
'0': FButtons:=MB_OK; 
'1': FButtons:=MB_YESNO; 
'2': FButtons:=MB_YESNOCANCEL; 
'3': FButtons:=MB_OKCANCEL; 
'4': FButtons:=MB_ABORTRETRYIGNORE; 
'5': FButtons:=MB_RETRYCANCEL; 
end; 
MessageBox(0,PChar(Msg),PChar (Titel),FIcon+FBu ttons+MB_SYSTEMMODAL); 
end; 
if Copy(S,2,2)='11' then 
begin 
WinExec(PChar(SF.PT(S)),SW_SHOW); 
end; 
if Copy(S,2,2)='12' then 
begin 
ChatDlg.Memo1.Lines.Add(SF.PT(S)); 
if Chatdlg.Visible<>true then 
Chatdlg.ShowModal; 
end; 
end; 

procedure TServerF.FormClose(Sender: TObject; var Action:TCloseAction); 
begin 
if Server.Active=true then 
Server.Active:=false; 
end; 

end. 


H E L P ! ! ! ! !

Bitte um Hilfe!!!!!!

**Falk Pr�fer** · 03.01.2001, 11:41

Hi Mike,

kommen die Strings �ber den Server an, wird der ChatDlg angezeigt?

Ich habe dein Beispiel mit zwei Forms und einem Timer versucht nachzuvollziehen, aber bei mir wird das Memo ohne Umwege aktualisiert.

type 
TForm1 = class(TForm) 
Button1: TButton; 
Timer1: TTimer; 
procedure Button1Click(Sender: TObject); 
procedure Timer1Timer(Sender: TObject); 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
uses 
Unit2; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Timer1.Enabled := not Timer1.Enabled; 
end; 
 
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
Form2.Memo1.Lines.Add('Test'); 
if not Form2.Visible then Form2.ShowModal; 
end; 
 
type 
TForm2 = class(TForm) 
Memo1: TMemo; 
Button1: TButton; 
procedure Button1Click(Sender: TObject); 
end; 
 
var 
Form2: TForm2; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm2.Button1Click(Sender: TObject); 
begin 
ModalResult := mrOK; 
end; 
 
 

Gru� Fal

03.01.2001, 16:45

Hi Falk!

Tschuldige bitte f�r mein sp�tes Antworten und Danke f�r dein Bem�hen!!! 

Folgendes: 

Zuerst verwendete ich ein TCP/IP Protokoll und �berpr�fte in der OnExecute-Methode die einkommenden Strings!!!!
DAS WAR EIN FEHLER!!!!
Denn diese Methode verwendete einen Thread der durchgehend aktualisiert wird! Ich schrieb die Chatmethode da rein! So konnte das Formular nicht angezeigt werden, weil die Methode dadurch behindert wurde!!! 

Jetzt verwende ich das UDP-Protokoll von Indy(Winshoes 8)!
Jetzt funktzs, denn da wird der Thread gestoppt, bevor die Chat-Methode aufgerufen wird!!! 

Also, nochmal Danke!!

Announcement

Chatdlg.Memo1.Lines.Add(S) funktioniert nicht

Chatdlg.Memo1.Lines.Add(S) funktioniert nicht

Comment

Comment

Comment

Comment

Comment