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;
