Der Admin hat genug zu tun
Ich denke, ich mache es erstmal mit dem Quellcode, ich möchte ja auch was dazulernen in dieser Richtung.
Falls es irgendwie nicht geht, kann ich den Admin ja fragen, aber da gibt es zur Zeit andere Prioritäten
Trotzdem, die Idee ist gut!
PS:
Ich habe es jetzt sogar selber hinbekommen
Aber es gibt noch das problem, dass solche bestimmten Zeichen, die wahrscheinlich smilies sind, halt nur als wirre buchstaben angezeigt werden.
Kann ich das vielleicht mit StringReplace machen??
Hier meine Lösung:
Delphi-Quellcode:
function FindInString(Text, SearchFrom, SearchTo: string; FirstOnly: Boolean; var Return: TArrayofstring): Boolean;
var
i: Cardinal;
FoundString: string;
begin
Result := False;
SetLength(Return, 0);
i := Pos(SearchFrom, Text);
while i > 0 do
begin
Result := True;
i := i + Length(SearchFrom);
FoundString := Copy(Text, i, PosEx(SearchTo,Text,i) - i);
SetLength(Return, length(Return) + 1);
Return[high(Return)] := FoundString;
Delete(Text, 1, i);
i := Pos(SearchFrom, Text);
if FirstOnly then Break;
end;
end;
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var HTMLCode:
String;
TextMessage: TArrayOfString;
User: TArrayOfString;
begin
HTMLCode := idHTTP1.Get('
http://forum.quicklink.me/chat.php');
FindInString(HTMLCode, '
class="content" style="min-height: 0px;">', '
</div></div><dl', False, TextMessage);
FindInString(HTMLCode, '
class="username-coloured">', '
</a></dt></dl><span', False, User);
Memo1.Clear;
Memo1.Lines.Add(User[0] + '
: ' + TextMessage[0]);
Memo1.Lines.Add(User[1] + '
: ' + TextMessage[1]);
Memo1.Lines.Add(User[2] + '
: ' + TextMessage[2]);
Memo1.Lines.Add(User[3] + '
: ' + TextMessage[3]);
Memo1.Lines.Add(User[4] + '
: ' + TextMessage[4]);
Memo1.Lines.Add(User[5] + '
: ' + TextMessage[5]);
Memo1.Lines.Add(User[6] + '
: ' + TextMessage[6]);
Memo1.Lines.Add(User[7] + '
: ' + TextMessage[7]);
Memo1.Lines.Add(User[8] + '
: ' + TextMessage[8]);
Memo1.Lines.Add(User[9] + '
: ' + TextMessage[9]);
end;