hulonglong的专栏

<br />function FileToVariant(FileName: String): OleVariant; <br />var <br />AStream: TFileStream; <br />MyBuffer: Pointer; <br />begin <br />  AStream:=TFileStream.create(FileName,fmOpenRead); <br />  try <br />    aStream.Seek(0, soFromBeginning); <br />