Es speichert den gesamten Chatverlauf einfach in ein txt-file (keine User, sessions usw.).
Ziemlich einfach gebaut und funktioniert im lokalen Netzwerk auch ganz zufriedenstellend
Nun wollt ich hier nach Anregungen/Ideen fragen, wie ich das ganze (wieder möglichst einfach) über das Web laufen lassen kann?
Dachte da an sowas ähnlich einfaches wie
Code: Alles auswählen
path := 'http://<ip>/text.txt' ;
Danach kam ich auf die Idee ev. GitHub o.Ä. für mein 'text.txt' zu missbrauchen, fand aber nirgends etwas wie man dort per fpc files schreiben kann.?
Am liebsten wäre mir natürlich wenn das über Port 80 laufen würde... bin aber mit den ganzen tcp socket dingen nicht unbedingt gut vertraut
Code: Alles auswählen
Program chat;
(*$I-*)
USES sysutils, crt;
VAR
fIn, fOut: Text;
b,text,path : string;
n: INTEGER;
i: Longint;
PROCEDURE writeout;
BEGIN
path := '\\server1\d$\chat\text.txt';
i := 0;
b := '';
While true DO BEGIN
REPEAT
IF i <> FileAge(path) THEN BEGIN
clrscr;
i := FileAge(path);
Assign(fIn, path);
Reset(fIn);
CursorBig;
WHILE NOT EOF(fIn) DO BEGIN
Readln(fIn, b);
FOR n := 0 TO high(b) DO BEGIN
b[n] := Chr(Ord(b[n])-6);
END;
writeln(b);
END;
Close(fIn);
END;
UNTIL KeyPressed;
Readln(text);
Assign(fOut,path);
Append(fout);
text := TimeToStr(Time)+': '+text;
For n := 0 to high(text) DO BEGIN
text[n] := Chr(Ord(text[n])+6) //Textfile unleserlich machen ;)
END;
Writeln(fout,text);
Close(fOut);
END;
END;
BEGIN
writeout;
readln();
END.