龙
龙石佛
Unregistered / Unconfirmed
GUEST, unregistred user!
高手请看下面代码，该函数在Application中可以编译过去并调用成功。为什么做成Dll（可以编译成功），在调用该dll时执行下面的函数<br>就会有问题：提示 Project test.ext raised exception class EInvalidPointer whit message <br>'Invalid pointer operation',Process stopped.Use Step or Run to continue.<br>该信息是表明调用Dispose(),FreeMem()试图释放非法的或已经释放的内存时将发生这个异常。<br><br>谁能告诉我为什么？错在哪？<br>const<br> c1=52845;<br> c2=22719;<br>Function encrypt(S:string;key:LongWord):String;StdCall;<br>var<br> i:LongWord;<br> Str:String;<br> // Pin:String;<br>begin<br> try<br> if Length(S)>=6 then<br> begin<br> Str:=Copy(S,1,6);<br> try<br> // SetLength(Pin,6);<br> SetLength(Result,6);<br> for i:=1 to length(Str) do<br> begin<br> result:=char(byte(Str)xor(key shr 8));<br> // Pin:=char(byte(Str)xor(key shr 8));<br> key:=(byte(result)+key)*c1+c2;<br> // key:=(byte(Pin)+key)*c1+c2;<br> end;<br> except<br> on Exception do<br> end;<br> end<br> except<br> on Exception do<br> end;<br>end;