我正在尝试上载要解析的文本文件，但是它无法正常工作，因为我认为我使用了错误的参数来在XE6中上载。我觉得我需要使用其他东西代替LStream：TStream。
我遵循了一个教程：XE6上传示例
使用示例，我能够成功上传图片进行解析。我将代码更改为此，但是它不起作用：
procedure TForm1.btnUploadClick(Sender: TObject);
var
LStream: TStream;
LFile: TBackendEntityValue;
begin
LStream := SaveText;
try
BackEndFiles1.Files.UploadFile('mytext.txt',LStream, 'text/txt',LFile);
ShowMessage('Uploaded');
Edit1.Text := LFile.DownloadURL;
finally
LStream.Free;
end;
end;
function TForm1.SaveText: TStream;
begin
Result := nil;
begin
Result := TMemoryStream.Create;
try
Edit2.Text.SaveToStream(Result);
except
Result.Free;
raise;
end;
end;
end;
您确定有关文本/文本的内容类型吗？纯文本通常具有Internet媒体类型 text/plain。常见文本媒体类型的列表可以在这里找到：
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句