> Ok, then please show us the complete error message, including the
> line numer.
This is a code:
procedure TForm1.HeartBeat(Sender: TObject);
var
lBlkSock: TBlockSocket;
lDownloaded: Integer;
begin
lBlkSock := TBlockSocket(Sender);
lDownloaded:= lBlkSock.RecvCounter;
Self.Caption := Format('%d', [lDownloaded]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
HTT := THTTPSend.Create;
HTT.Sock.OnHeartbeat:=@HeartBeat;
HTT.Sock.HeartbeatRate := 5000;
Response := TStringList.Create;
HTT.KeepAlive := true;
HTT.protocol := '1.1'; //'1.1', '1.0' (default) and '0.9'.
HTT.MimeType := 'text';
HTT.UserAgent := 'synapse';
HTT.Sock.OnStatus := callback.Status;
end;
The compiler error message is: "Variable required".
The error line is 15 and it is: "HTT.Sock.OnHeartbeat:=@HeartBeat;"
--
best regards
Piotr Polok
------------------------------------------------------------------------------
Got Input? Slashdot Needs You.
Take our quick survey online. Come on, we don't ask for help often.
Plus, you'll get a chance to win $100 to spend on ThinkGeek.
http://p.sf.net/sfu/slashdot-survey
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
