FreePascal / Lazarus 并实现 nsurlconnectiondatadelegate

Question

我正在尝试实现 nsurlconnectiondatadelegate，因为我需要支持异步模式 - 在同步模式下，我不想要自动遵循重定向。

作为参考，我有使用 urlRequest 等在同步模式下工作的代码。

问题是我无法让 FPC/Lazarus 编译我的代码。

...

代码片段

{$mode objfpc}
{$modeswitch objectivec1}
{$modeswitch objectivec2}

...

// We need to implement support for NSURLConnectionDelegate and NSURLConnectionDataDelegate
TmsMacRequestDelegate = objcclass(NSObject)
public
  // this will set flag when done
  procedure connectionDidFinishLoading(ANSUC: NSURLConnection); message onnectionDidFinishLoading:'; override;
  // ... implement rest?
end;

...

requestDelegate := TmsMacRequestDelegate.alloc.init;
urlConnection := NSURLConnection.connectionWithRequest_delegate(urlRequest, requestDelegate);
// ... setup flag
urlConnection.start;
// ... wait here in loop checking flag set by "finish loading"

...

有了上述内容，初步测试似乎不太顺利。我们到达 urlConnection.start; 但 connectionDidFinishLoading 永远不会被调用。我的理论是，可能是因为我们没有完全实现委托。但是，这样做给我带来了其他问题 - 这是声明：

TmsMacRequestDelegate = objcclass(NSObject)
public
procedure connectionDidFinishLoading(ANSUC: NSURLConnection); message 'connectionDidFinishLoading:'; override;
procedure connection(ANSUC: NSURLConnection; didReceive: NSURLResponse); message 'connection::';
procedure connection(ANSUC: NSURLConnection; didReceive: NSData); message 'connection::';
procedure connection(ANSUC: NSURLConnection; didSendBodyData: Integer; totalBytesWritten: Integer; totalBytesExpectedToWrite: Integer); message 'connection::::';
procedure connection(ANSUC: NSURLConnection; willSend: NSURLRequest; redirectResponse: PNSURLResponse); message 'connection:::';
procedure connection(ANSUC: NSURLConnection; willCacheResponse: NSCachedURLResponse); message 'connection::';
end;

• 在一个函数中，我翻译了 NSURLResponse? 作为指向 NSURLResponse 的指针......但不确定这里是什么？
• 编译器抱怨我必须在我的第一个函数上添加“覆盖”（尽管在 NSObject 中没有实现任何函数？）并显示以下消息：

错误：继承的方法只能在Objective-C和Java中被覆盖，添加“覆盖”（NSURLConnectionDelegateCategory中定义的继承方法

• 如果我像建议的那样添加“覆盖”，我会得到：

错误: :219:1: 错误: 无效的符号重新定义

错误：“-TmsMacRequestDeletegate 连接::]”：

错误：^

Answer 1

这么晚才回复很抱歉。我并不积极关注 SO，但有人只是向我指出了这篇文章。

NSURLConnectionDataDelegateProtocol 的声明在 FPC 附带的 CocoaAll 单元中可用。您可以将委托声明为 objcclass(NSObject, NSURLConnectionDataDelegateProtocol) 所以

1. 您不需要为每个方法/消息指定消息名称（编译器将从协议/接口中获取它们）
2. 编译器可以指出缺少方法/冲突消息名称方面的任何错误

主要问题是您的消息名称不完整。例如，对于您的第一个“连接”方法，它必须是“connection：didReceiveResponse：”。这就是运行时找不到它们的原因。