Stream i błąd: "Missing operator or semicolon"

0
var
  StreamIn, StreamOut : TStringStream;
  tex : string;
begin

  StreamIn := TStringStream.Create('');
  StreamOut := TStringStream.Create('');
  try
    tex := WebBrowser1.OleObject.Document.documentElement.innerHTML


    StreamIn.WriteString(Format('kod=%s', [tex]));
    http.Request.contenttype:='application/x-www-form-urlencoded';
    http.Post('http://mojadres.pl/skrypt.php', StreamIn, StreamOut); // wysłanie zawartości do skryptu
    Edit2.Text:=PChar(StreamOut.DataString);
  finally
    StreamIn.Free;
    StreamOut.Free;
  end;

Wywala mi błąd (missing operator or semicolon) w tej linijce:

StreamIn.WriteString(Format('kod=%s', [tex]));

i wstawia kursor po StreamIn . O co może chodzić? Bo nie mam pojęcia i necie nie mogę znaleźć.

1

Tutaj masz błąd:

tex := WebBrowser1.OleObject.Document.documentElement.innerHTML

Brak średnika ;)

0

Tez to zauważyłem. A co z tym format?

1

Nie, nic, nic...
Po prostu można to zastąpić:

StreamIn.WriteString('kod='+Tex);

A błąd występował przy tej linijce dlatego, że w poprzedniej nie było średnika.

0

Swoją drogą ciekawe kiedy to poprawią w Delphi (i pochodnych) :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1