--- In [email protected], "Jeremy Grand" <[EMAIL PROTECTED]> wrote: > > I pressed F1, opened Delphi Help, typed "fillchar" and voila, Help tells > me that this function is in the system unit. I'm using D7, so your > mileage may vary. > > ________________________________ > > From: [email protected] > [mailto:[EMAIL PROTECTED] On Behalf Of Andi Purwito > Sent: Sunday, June 29, 2008 9:17 PM > To: [email protected] > Subject: [advanced_delphi] How to access shared folder in windows > 2000/2003 using delphi asp.net? > > > > How to access shared folder in windows 2000/2003 using delphi asp.net? > I have try using TNetResource but not success. > Here's my script that translated from source: > http://support.microsoft.com/kb/842789 > <http://support.microsoft.com/kb/842789> > > I have been add "windows" unit into uses clause but an error occured > like this: > "E2003 Undeclared identifier: 'FillChar'" > I use BDS 2006 on Delphi for Microsoft.Net IDE. But in Delphi for > Microsoft Win32 IDE, everything is ok. What's the problem in .net? > > What unit is which i need to use? > How 'FillChar' can be used in .net? > > var > NetResource: TNetResource; > UserName, Password: string; > LocalDrive, RemoteUNCPath: String; > RetValue: DWORD; > > w: TextFile; > begin > UserName := 'MyAccount'; > Password := 'MyPassword'; > RemoteUNCPath := '\\MyServer\MyShare'; > LocalDrive := 'Z:'; > > FillChar(NetResource, SizeOf(NetResource), 0); // clear structure > NetResource.dwType := RESOURCETYPE_DISK; > NetResource.lpRemoteName := PChar(RemoteUNCPath); > NetResource.lpLocalName := PChar(LocalDrive); > > RetValue := WNetAddConnection2(NetResource, PChar(Password), > PChar(UserName), CONNECT_UPDATE_PROFILE); > if RetValue = NO_ERROR then > begin > AssignFile(w, 'X:\MyTextFile.txt'); > if not FileExists('X:\MyTextFile.txt') then > Rewrite(w) // create new empty file > else > Append(w); // append to existing file > try > WriteLn(w); > WriteLn('Hi how are you'); > // Response.Write('Success'); > except > // Response.Write('Failed'); > end; > CloseFile(w); > end > else > begin > // Response.Write('Failed'); > end; > WNetCancelConnection2(NetResource.lpLocalName, 0, False); > end; >
No, there was different unit or way in BDS 2006 for .Net. I have been tried it and still undefined function.
