调用远程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;
