[PashaXP]

Привет всем! Подскажите, пожалуйста... есть такой исходник -
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
function GetHTMLCode(WB: IWebbrowser2; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
s: string;
ss: TStringStream;
sa: IStream;
begin
ps := WB.document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa:= TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, Bool(True)));
if Result then ACode.Add(ss.DataString);
finally
ss.Free;
end;
end;
..................
GetHTMLCode(WB,Memo1.Lines);
..................
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Как мне определить переменную например Stroka, чтобы я ее мог использовать вместо Memo, GetHTMLCode(WB,Stroka), я пробовал Stroka:TStrings - компилируется, но при запуске выдает ошибки...

[KOOL]

1) тема названа неправильно - не определить, а объявить
2) код надо заключать в теги [CODE ] [/CODE ]
3) а ты присвоил значение переменной stroka перед использованием? если нет - то вот и причина ошибки
4) зачем использовать лишние переменные? Memo.Lines использовать легче и быстрей

[PashaXP]

Переменную конечно определил, как TStrings... Компиляциябез ошибок, а при выполнении ошибки. Я считываю html-код странички и обрабатываю его, можно сделать и в Мemo но, процес обработки получается сложнее....

[KOOL]

Тогда делай так:

Код:

var stroka : TStrings;
...
stroka := TStringlist.Create;
try
  stroka := Memo1.Lines;
  GetHTMLCode(WB,stroka);
finally
  stroka.Free;
end;
...

Должно получиться

[PashaXP]

Спасибо!!!