Skip to content

Commit

Permalink
UTF8 conversion, maybe?
Browse files Browse the repository at this point in the history
  • Loading branch information
Cezar "ikari" Pokorski committed Mar 3, 2013
1 parent 51c0bb6 commit 0dc7818
Showing 1 changed file with 14 additions and 14 deletions.
28 changes: 14 additions & 14 deletions IkarisPolchat.pas
Original file line number Diff line number Diff line change
Expand Up @@ -652,16 +652,16 @@ procedure TIkarisPolchat.PolchatConnected(Sender: TObject; Error: Word);
if Error <> 0 then
begin
case Error of
10060: ErrorMessage('Socket error 10060: Nie mo¿na znaleŸæ serwera!');
10061: ErrorMessage('Socket error 10061: Serwer, z którym siê ³¹czysz nie istnieje!');
10065: ErrorMessage('Socket error 10065: Brak po³¹czenia (z internetem?)');
10060: ErrorMessage('Socket error 10060: Nie można znaleźć serwera!');
10061: ErrorMessage('Socket error 10061: Serwer, z którym się łączysz nie istnieje!');
10065: ErrorMessage('Socket error 10065: Brak połączenia (z internetem?)');
else
ErrorMessage('Blad laczenia nr '+IntToStr(Error));
end;
GoodBye := '***';
Exit;
end;
GoodBye := Zakoduj('Utrata po³¹czenia z serwerem');
GoodBye := Zakoduj('Utrata połączenia z serwerem');

if Encoding then FRoom := Zakoduj(FRoom);
if Encoding then FRoom := Zakoduj(FNick);
Expand Down Expand Up @@ -888,8 +888,8 @@ procedure TIkarisPolchat.Departure(pakiet: TPakiet);
nicks.Delete(i);
end
else
ErrorMessage('Nie mam na liœcie u¿ytkownika "'+xywa
+'", który podobno w³aœnie wyszed³');
ErrorMessage('Nie mam na liście użytkownika "'+xywa
+'", który podobno właśnie wyszedł');
except on E: Exception do
ErrorMessage('Blad w Departure: '+ E.Message);
end;
Expand Down Expand Up @@ -917,8 +917,8 @@ procedure TIkarisPolchat.StatusPublic(pakiet: TPakiet);
TOsoba(Nicks.Objects[i]).SetGlobalStatus(status);
end
// else
// ErrorMessage('Nie mam na liœcie u¿ytkownika "'+xywa
// +'", który podobno w³aœnie zmieni³ StatusPublic'
// ErrorMessage('Nie mam na liście użytkownika "'+xywa
// +'", który podobno właśnie zmienił StatusPublic'
// +' w pokoju: '+pokoj+'.'); //wtf omg lol bbq
except on E: Exception do
ErrorMessage('Blad w StatusPublic: '+E.Message);
Expand Down Expand Up @@ -950,8 +950,8 @@ procedure TIkarisPolchat.StatusPrivate(pakiet: TPakiet);
TOsoba(Nicks.Objects[i]).SetIndivStatus(status);
end
{ else
ErrorMessage('Nie mam na liœcie u¿ytkownika "'+xywa
+'", który podobno w³aœnie zmieni³ StatusPrivate');}
ErrorMessage('Nie mam na liście użytkownika "'+xywa
+'", który podobno właśnie zmienił StatusPrivate');}
end;
except on E: Exception do
ErrorMessage('Blad w StatusPrivate: '+E.Message);
Expand Down Expand Up @@ -1473,7 +1473,7 @@ procedure TIkarisPolchat.Open;
Connected := True;
PolchatConnected(Self, 0);
HTTPTimer := TTimer.Create(Self);
HTTPTimer.Interval := 10000; // Czas odœwie¿ania
HTTPTimer.Interval := 10000; // Czas odświeżania
// MakeHTTPQuery(Self);
HTTPTimer.OnTimer := MakeHTTPQuery;
HTTPTimer.Enabled := True;
Expand Down Expand Up @@ -1825,7 +1825,7 @@ procedure TServerPrefs.SetNothingStr(Value: String);

constructor TServerPrefs.create(AOwner: TComponent);
begin
Self.FCategories := '/ /Regionalne/ /Regionalne/Polska/ /Regionalne/Œwiat/ /Towarzyskie/ /Towarzyskie/Rówieœnicy/ /Hobby/ /Internet/ /Komputer/ /Komputer/Gry/ /Motoryzacja/ /Muzyka/ /Polityka/ /Praca/ /Radio/ /Rozrywka/ /Religia/ /Ró¿ne/ /Sport/ /Szko³a/ /Telewizja/ /Zdrowie/';
Self.FCategories := '/ /Regionalne/ /Regionalne/Polska/ /Regionalne/Świat/ /Towarzyskie/ /Towarzyskie/Rówieśnicy/ /Hobby/ /Internet/ /Komputer/ /Komputer/Gry/ /Motoryzacja/ /Muzyka/ /Polityka/ /Praca/ /Radio/ /Rozrywka/ /Religia/ /Różne/ /Sport/ /Szkoła/ /Telewizja/ /Zdrowie/';
// Self.FColGuest := ($00DF0000, $00BFBF00, '#df00df', '#dfdf00', '#000000');
Self.FColOp := clRed;
Self.FColUs := clBlack;
Expand Down Expand Up @@ -2290,8 +2290,8 @@ constructor TChatLog.Create(FileName, Title: String; FromWhere: TLogSource; From

PutStringPair('Czas zapisu', DateTimeToStr(now));
case FromWhere of
fromRoom: PutStringPair('Pokój', FromName);
fromPriv: PutStringPair('Rozmówca', FromName);
fromRoom: PutStringPair('Pokój', FromName);
fromPriv: PutStringPair('Rozmówca', FromName);
end;
PutStringUnicode('<hr>');
except
Expand Down

0 comments on commit 0dc7818

Please sign in to comment.