🚀 go-pugleaf

> A to id to jakiego jest typu?
> 
> miab

Integer (serial z tabeli pliki)
chodzi o numer rekordu tabeli z plikami

funkcję
zmieniłem na dwutorową

function TPobierzPoczte.ZapiszPlikWBazieFTP(Stream: TStream; filename,
   opis: String): Integer;
var BS        : TStream;
     fs        : TFileStream;
     BlobField : TField;
     Query     : TZQuery;
begin
result:=-1;
   Query:=TZQuery.Create(nil);
   try
    Query.Connection:=Poczta.ZQPoczta.Connection;

    Query.SQL.Text:='INSERT INTO pliki(typ, nazwapliku, id_sprawy,opis) 

                     VALUES (:typ, :nazwapliku, :id_sprawy,:opis) 

                     returning id;';
     Query.ParamByName('typ').Text := 'plik';
     Query.ParamByName('nazwapliku').Text := ExtractFileName(filename);
     Query.ParamByName('id_sprawy').AsInteger := 0;
     Query.ParamByName('opis').Text := opis;
     Query.Open;
     if assigned(Query.Fields.FindField('id')) then
     begin
       result:=Query.FieldByName('id').AsInteger;
       Query.Close;
       Query.SQL.Text:='UPDATE pliki SET dane=:dane WHERE id=:id;';
       Query.ParamByName('id').AsInteger:=result;
       Query.ParamByName('dane').LoadFromStream(Stream,ftBlob);
       Query.ExecSQL;
     end;
   finally
     Query.free;
   end;
end;