Deutsches Lazarusforum

Es hat sich erledigt:


so funktioniert es für mich:

procedure TClient.Disconnect;
begin
Terminate;
end;

{ [...] }

procedure TClient.Execute;
var
S: string;
begin
ThreadSock := TTCPBlockSocket.Create;
try
ThreadSock.socket := CSock;
ThreadSock.GetSins;
repeat
if Terminated then break ...

Hi.
Ich Versuche gerade ein Client Socket zu Schließen.

Jedoch Funktioniert es nicht richtig.

procedure TClient.Disconnect;
begin
Echo('DD1', Data.Id);
ThreadSock.CloseSocket; //Line 32
Echo('DD2', Data.Id);
ThreadSock.Free;
Echo('DD3', Data.Id);
Disconnectet := True;
end ...

Was ist mit Mac?

Ich glaube das mit SIG geht auf allen Unix Sythemen, nicht oder?

Edit:

Ja geht es:
http://developer.apple.com/mac/library/ ... nal.3.html" onclick="window.open(this.href);return false;

BTW gute Liste mit Signalen

Ok ich habs raus:


Beim start muss dem SIG event ein Handler zugewiesen werden.
Joar und dieser Handler kann halt dann das machen was man machen will.

aber es funktioniert glaube ich nur auf Linux. muss man testen ;)

program project1;

uses BaseUnix;

procedure DoSig(SIG: cInt); cdecl;
begin ...

Ok das sieht interresannt aus:

http://www.freepascal.org/docs-html/rtl ... ignal.html" onclick="window.open(this.href);return false;

Okey. Ich habe gerade gelesen das mit Strg+C die Exeption "EControlC" ausgelöst wird
Mal sehen wie ich diese Exeption jetzt handlen kann

ich schreibe gerade eine kleine Server Anwendung und würde mein Socket gerne wieder Freigeben wen die Anwendung beendet wird

es ist eine konsolenanwendung. jedoch kann ich kein OnTerminate definieren.

type

{ TServer }

TServer = class(TCustomApplication)
protected
procedure DoRun ...

thx


Ich habs hinbekommen.

durch den rest arbeite ich mich jetzt schon durch xD

Ich habe vor eine Serversoftware zu schreiben aber dafür brauche ich eine TCP Socket Server Komponente.

Ich habe bis jetzt nur Clients gefunden oder bin ich einfach zu blöd?

Funktionieren tut es...
jedoch gibt es damit die selben Probleme wie bei meinem Beispiel.

ich verstehe nicht weshalb.
Ich hänge mal das Projekt an. Das sagt mehr als Tausend Worte. (mPlayer Komponente muss Installiert sein - Wenn keine TV Karte vorhanden dann den MPlayerControl1.Filename in ...

Also entweder bin ich Blöd oder ich weiß auch nicht.
Mit deiner korrigierten Rechnung ist es das gleiche Ergebnis wie gerade eben.

Ich verstehe auch nicht ganz wie du darauf kommst das so zu machen.

Also bei deiner Berechnung die ich jetzt so umgesetzt habe bleibt der mPlayer nur ein kleines Kästchen.

if (form1.PanelPlayerReal.Width > (Form1.PanelPlayerReal.Height * Aspect1 div Aspect2)) then
Width := Form1.PanelPlayerReal.Height * Aspect1 div Aspect2
else
Width := Form1.PanelPlayerReal ...

Also das Aspekt ist z.b. 4:3
Ein Tv Bild hat die z.b. größe 4:3
Also z.b.
Höhe 300px
Breite 400px
Wenn ich jetzt dieses TV Bild auf einem Panel darstelle dann möchte ich das es diese Seitenverhältnisse einhält.
z.b. Das Panel ist 500px breit und 300px hoch.
Das größte gemeinsamme ist also:
Höhe ...

Sehe ich genauso.
Wenn ich mein Paket erstelle werde ich natürlich als Abhängigkeiten den mplayer und die nötigen codecs für die TV wiedergabe setzten (Wobei ich noch suchen muss welche das sind).

Hi.
Ich mochte die Lautstärke von Line in regulieren.
Ist das irgendwie möglich?
Achja ist für Linux und ALSA..