Soap Attachment hatası

[varyemez]

Bir webservisinden zip dosya çekmede kullandığım deneme kodları var. servise bağlanıp dosyayı BorlandSoapAttachment0 ismiyle (uzantısı olmadan) bir klasore kaydediyor ama bu arada da access violation hatası veriyor. nerede hata olabilir ki?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
memstr: TMemorystream;
svc:PackageReceiverWS;
satt: Tsoapattachment;
alparam: receiveFileParameters;
hatalar:packageTransferError;
begin
svc:= (httprio1 as PackageReceiverWS);
hatalar:=packageTransferError.Create;
alparam:=receiveFileParameters.Create;
alparam.sourceGLN:='8680001100262';
alparam.transferId:=strtoint(Edit1.Text);
satt:=Tsoapattachment.Create;
//satt.CacheFile:= 'C:\pakettr\getfile\recv\tmp\gelpak.zip';
 satt.ContentType:='application/zip';
 
satt:= svc.receiveFile(alparam);   //  BU SATIRI CALISTIRDIKTAN SONRA access viiolation hatası çıkıyor ama dosya da cache ye kaydediliyor 

try
   memStr := TMemoryStream.Create;
    try
     sAtt.SaveToStream(memStr);
  //    memStr.Position := 0;
//      memstr.SaveToFile('C:\pakettr\getfile\recv\gelen.zip');

 //  sAtt.SaveToFile('C:\pakettr\getfile\recv\gelen.zip');

    finally
 //   sAtt.Free;
    memStr.Free;
    end;
  finally
//  copyfile(Pansichar(sAtt.CacheFile),Pansichar('C:\pakettr\getfile\recv\gelen.zip'),false);
 // DeleteFile(sAtt.CacheFile);
 //   sAtt.Free;
  end;
//edit2.Text:=hatalar.faultCode+' - ' + hatalar.faultMessage ;
//alparam.Free;
//hatalar.Free;
end;