В общем пишу сейчас небольшой специфический генератор имен, и хотел бы сделать функцию по проверки уже занятых имен. Код программы:
Code
unit Poluchatel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
RichEdit1: TRichEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
res,s,res2:string;
i:integer;
begin
RichEdit1.Clear;
res:=idHTTP1.get('http://gromdron.narod2.ru/news/?news=1');
Delete(res, 1, pos('<spisok>',res)+13);
res2:=Copy(res,1,pos('</spisok>',res));
s:='';
for i:=0 to length(res2) do
begin
If (res2[i]<>'') and (res2[i]<>' ') then s:=s+res2[i];
If res2[i]=' ' then begin RichEdit1.Lines.Add(s); s:=''; end;
end;
for i:=0 to RichEdit1.Lines.Count do
begin
If (RichEdit1.Lines[i]=' ') or (RichEdit1.Lines[i]='') then RichEdit1.Lines.Delete(i);
end;
end;
end.
Проблема состоит в том, что при работе с локальным сайтом все идеально: заходит, забирает, делит, пишет и все на русском. Но вот при работе в сети Интернет вместо русских символов, в независимости от кодировки появляются галиматья. Вернее не появляется вместе с русскими буквами, а заменяется.
Кто может подсказать как это исправить или в чем может быть проблема ? И с точки зрения быстродействия: насколько хорошо будет работать такая конструкция? Может быть есть способ увеличить быстродействие ?
