-1

我需要这段代码的帮助

这是所有代码

请求:TIdHTTPRequestInfo

响应:TIdHTTPResponseInfo

jQuery:TResourceStream

procedure TServer.ActiveServer;
begin
  DefaultPort := 8117;
  Active := True;
  OnCommandGet := FServerCommandGet;
  JQuery := TResourceStream.Create(HInstance,'JQuery',RT_RCDATA);
end;

function TServer.FindFiles: Boolean;
var
  Stream : TStream;
begin
  if Request.Document = '/jquery.js' then
  begin
    Response.ContentType := 'application/x-javascript';
    Stream := TStream.Create;
    Stream.Position := 0;
    Stream.CopyFrom(JQuery,JQuery.Size);
    Response.ContentStream := Stream;
    Result := True;
  end else
    Result := False;
end;

错误:TStream.Seek 未实现

问题出在 TStream 中的复制 TResourceStream

4

1 回答 1

2

TStream是一个抽象类,所以不能直接使用,你必须使用它的后代。TResourceStream例如。

PS:我看到您正在处理 Indy,分配给时无需释放流ContentStream,Indy 将为您处理。

function TServer.FindFiles: Boolean;
var
  Stream : TResourceStream;
begin
  if Request.Document = '/jquery.js' then
  begin
    Response.ContentType := 'application/x-javascript';
    Response.ContentStream := TResourceStream.Create(HInstance, 'JQuery', RT_RCDATA);
    Result := True;
  end else
  begin
    Result := False;
  end;
end;
于 2018-01-11T11:45:43.270 回答