Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.

ID: 12461, Fix for AV when NT client pass a string parameter

by Dan Miser Email: Anonymous

Download Details
FTP  download also available 0 bytes
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 2.0  to 2.0 20 downloads
Copyright: No significant restrictions

Size: 0 bytes
Updated on Fri, 14 May 1999 00:00:00 GMT
Originally uploaded on Fri, 14 May 1999 00:00:00 GMT
// Fixes AV when NT client calls an app server method with a string parameter
procedure TDataBlockInterpreter.CopyDataByRef(Source: TVarData; var Dest: TVarData);
varOleStr: (**) (* Josh Dahlby (99-02-23): Replace varOleStr section *)
if (Dest.VType and varTypeMask) <> varOleStr then
Dest.VOleStr := SysAllocString(Source.VOleStr) else
if (Dest.VType and varByRef) = varByRef then SysReallocString(PBStr(Dest.VOleStr)^,Source.VOleStr) else SysReallocString(Dest.VOleStr,Source.VOleStr);

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03