SMBv1 Windows XP

[tshubaka]

Gutes neues Jahr an alle.
ich konnte das so lösen, dass ich keine SMB Verbindung mehr brauche.

Delphi-Quellcode:

        
        Dateis2p := 'C:\temp\temp.s2p';
        S2PList := TStringList.Create;
        try
          send(adresse,'DISP:WIND1:ACT;',status);
          send(adresse,'MMEM:STOR:SNP:FORM AUTO;',status);
          send(adresse,'MMEM:STOR:SNP:TYPE:S2P 1,2;',status);
          send(adresse,'MMEM:STOR:SNP:DATA '''+Dateis2p+''';',status);
          Send(adresse,'MMEM:TRAN? '''+Dateis2p+''';',status);
          s2pString := '';
          repeat
            Enter(ieeeString,255,ieeelang,adresse,retCount);
            s2pString := s2pString + ieeeString+#13;
          until ieeeString = '';
          delete(s2pString,1,pos('!',s2pString)-1);
          S2PList.Text := s2pString;
          ADOSP_Messen.Parameters.ParamByName('@S2P').Assign(S2PList);
        finally
          S2PList.Free;
        end;

vielleicht braucht das ja irgendjemand.
Grüsse