Want to make APP Same thing as WeChat , Can run small programs smoothly ？ | Experience will send you to Xinjiang 、 Huawei 、 Cherry keyboard ！>>>

/test.txt

1. open Last section The engineering of

2. Add the component RtcDataProvider3 And set up Server The attribute is RtcHttpServer1, Set up CheckOrder The attribute is 900, bring RtcDataProvider3 The request processed follows other requests （CheckOrder The smaller, the earlier ）

3. At present exe Create a data Folder , And create a new one with content in this folder test.txt, And then write a GetFullFileName function , Used to extract a file name from a request and convert it to a local file name

function GetFullFileName(fname: string): string;
var
DocRoot: string;
begin
DocRoot := ExtractFilePath(AppFileName);
if Copy(DocRoot, length(DocRoot), 1) = '\' then
Delete(DocRoot, length(DocRoot), 1);
DocRoot := DocRoot + '\data';
fname := StringReplace(fname, '/', '\', [rfreplaceall]);
Result := ExpandFileName(DocRoot + fname);
if UpperCase(Copy(Result, 1, length(DocRoot))) <> UpperCase(DocRoot) then
Result := '';
end;

4. stay RtcDataProvider3 Of OnCheckRequest Write code in the event ：

var
fname: string;
begin
with TRtcDataServer(Sender) do
begin
fname := GetFullFileName(Request.FileName);
if (fname <> '') and (File_Exists(fname)) then
begin
Accept;
Request.Info['fname'] := fname;
end;
end;
end;

5. stay RtcDataProvider3 Of OnDataReceived Write code in the event ：

procedure TForm1.RtcDataProvider3DataReceived(Sender: TRtcConnection);
var
fname: string;
begin
with TRtcDataServer(Sender) do
if Request.Complete then
begin
fname := Request.Info['fname'];
if File_Exists(fname) then
Write(Read_File(fname))
else
Write;
end;
end;

6. Compile and run

7. Open the browser , Visit website http://localhost/test.txt