调用远程web service一个写日志方法，但web service却无法打开本地文件。
function TintfServer.AddEmp(XMLstr: WideString): WideString;var Fl: tfilestream; p: PAnsiChar;begin p := '123'; InitializeCriticalSection(log_ThreadLock); EnterCriticalSection(log_ThreadLock); try fl:=TfileStream.Create ('c:\log.txt',fmOpenWrite or fmShareDenyNone); fl.Position := Fl.Size; Fl.Write(p^, StrLen(p)); Result := p; finally LeaveCriticalSection(log_ThreadLock); end;// Result := '<ROOT><MARK>0</MARK><MSG></MSG></ROOT>';end;procedure TForm3.btn1Click(Sender: TObject);var Fl: tfilestream; p: PAnsiChar;begin p := '123'; try fl:=TfileStream.Create ('c:\log.txt',fmOpenWrite or fmShareDenyNone); fl.Position := Fl.Size; Fl.Write(p^, StrLen(p)); except on e: Exception do ShowMessage(e.Message); end;end;