Code
function ExtractCharSetFromPageContent(fBuffer: string): string;
const
c_DELIM = ';';
c_charset = 'charset=';
var
CutBuffer: TStringList;
posDelim: Integer;
strEnum: string;
begin
result := 'windows-1252';
CutBuffer := TStringList.create;
try
// cut the response into lines inside cutbuffer string list
while (fBuffer <> '') do
begin
posDelim := Pos(C_delim, fBuffer);
if (posDelim > 0) then
begin
CutBuffer.Add(Trim(copy(fBuffer, 1, posDelim - 1)));
Delete(fBuffer, 1, posDelim);
end
else
begin
CutBuffer.Add(Trim(fBuffer));
fbuffer := '';
end;
end;
// look for a line with charset
[b] for strEnum in CutBuffer do
if (Pos(c_charset, strEnum) > 0) then
begin[/b]
Result := Copy(strEnum,
Pos('=', strEnum) + 1,
Length(strEnum));
end;
finally
FreeAndNil(CutBuffer);
end;
end;
Устанавливаю компонент NewAC на дельфи 7 и вечно выходит ошибка на этой функции.