MantisBT
My View | View Issues | Report Issue | Change Log | Roadmap | My Account
  

View Issue Details [ Jump to Notes ] [ Issue History ] [ Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0001866MEGA[All Projects] Feedbackpublic2020-03-24 15:522020-04-07 10:10
Reporterguest 
Assigned Togstecher 
PrioritynormalSeverityminorReproducibilityhave not tried
StatusresolvedResolutionunable to reproduce 
PlatformPCOSWindows 
Product VersionMEGA Website 
Target VersionFixed in Version 
Summary0001866: Error Downloading
DescriptionI Experience error when I downloading file, it stopped and don't start.
TagsNo tags attached.
Attach Tags (Separate by ",")
First NameEvans
Last NameSilencer
EmailNuryayi001@gmail.com
Confirm EmailNuryayi001@gmail.com
Attached Files

- Relationships

-  Notes
(0001628)
Nikita Vikhrev (reporter)
1969-12-31 17:33

 Problem (1)
Here is the fixed code.

function TWebBrowserMainForm.FillBLASTForm: boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  result := false;
  if WebBrowser1.Document = nil then exit;
  if pos('BLAST', uppercase(WebBrowser1.LocationURL)) = 0 then exit;
  if WebBrowser1.OleObject.Document.forms.Length = 0 then exit;

  for i := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser1.OleObject.Document.forms.Item(i);
    for j := 0 to FormItem.Length - 1 do
      if FormItem.Item(j).tagName = 'TEXTAREA' then
        if uppercase(FormItem.Item(j).Name) = 'QUERY' then
        begin
          if BLASTSequence <> '' then
            FormItem.Item(j).Value := BLASTSequence;
          FormItem.Item(j).focus;
          result := true;
          Exit;
        end;
  end;
end;

Problem (2)
Here is the fixed code.

procedure TSeqNameOptionDlgForm.FormShow(Sender: TObject);
begin
  CurFormat := FormatRdGp.ItemIndex;
  CurSpecies := SpeciesRdGp.ItemIndex;
  CurGene := GeneRdGp.ItemIndex;
  CurUseInitial := UseInitialCkBx.Checked;

  SpeciesRdGp.Enabled := ((species <> '') and (strain <> '')) or ((host <> '') and (senotype <> ''));
  UseInitialCkBx.Enabled := (species <> '') or (host <> '');
  GeneRdGp.Enabled := (gene <> '') and (allele <> '');
  FormatRdGp.Enabled := (species+strain+host+senotype <> '') and (gene+allele <> '');

  SetSeqNameEdit;
end;

Problem(3)?
It is not a bug, but I have improved the source code for such power users.

First, move procedure SetSeqNameEdit from private to public.

  public
    { Public declarations }
    species,strain,gene,allele,GI,host,senotype: string;

    procedure SetSeqNameEdit;
  end;

Second, replace the corresponding part (near the end) of procedure TWebBrowserMainForm.FetchActionExecute(Sender: TObject) with the following.

      i := 0;
      while i < sl.Count do
      begin
        SeqNameOptionDlgForm.species := sl[i].Species;
        SeqNameOptionDlgForm.strain := sl[i].Strain;
        SeqNameOptionDlgForm.host := sl[i].Host;
        SeqNameOptionDlgForm.senotype := sl[i].Senotype;
        SeqNameOptionDlgForm.gene := sl[i].Gene;
        SeqNameOptionDlgForm.allele := sl[i].Allele;
        SeqNameOptionDlgForm.GI := sl[i].UIDS;
        SeqNameOptionDlgForm.infomemo.Lines[0] := sl[i].SeqInfo;
        SeqNameOptionDlgForm.SeqNameEdit.Text := sl[i].SeqName;

        if i = 0 then
          if SeqNameOptionDlgForm.ShowModal = mrOK then
          begin
            sl[i].SeqName := SeqNameOptionDlgForm.SeqNameEdit.Text;
            AlignEditMainForm.AlignGrid1.AppendSequence(sl[i]);
            AlignEditMainForm.Visible := true;
            sl[i] := nil;
            inc(i);
          end
          else
            break
        else
        begin
          SeqNameOptionDlgForm.SetSeqNameEdit;
          flag := true;
          for j := 0 to AlignEditMainForm.AlignGrid1.NoOfSeqs-1 do
            if SeqNameOptionDlgForm.SeqNameEdit.Text = AlignEditMainForm.AlignGrid1.Sequence[j].SeqName then
            begin
              flag := false;
              n := j;
              break;
            end;
          if not flag then
          begin
            MessageDlg('The specified sequence name already exists. Please modify it.', mtInformation, [mbOK], 0);
            AlignEditMainForm.AlignGrid1.Select(0,n,0,n);
            AlignEditMainForm.AlignGrid1.SelectSequence;
            AlignEditMainForm.SetFocus;
            if SeqNameOptionDlgForm.ShowModal = mrOK then
            begin
              sl[i].SeqName := SeqNameOptionDlgForm.SeqNameEdit.Text;
              AlignEditMainForm.AlignGrid1.AppendSequence(sl[i]);
              AlignEditMainForm.Visible := true;
              sl[i] := nil;
              inc(i);
            end
            else
              break;
          end
          else
          begin
            sl[i].SeqName := SeqNameOptionDlgForm.SeqNameEdit.Text;
            AlignEditMainForm.AlignGrid1.AppendSequence(sl[i]);
            AlignEditMainForm.Visible := true;
            sl[i] := nil;
            inc(i);
          end;
        end;
      end;
(0001632)
agasky (reporter)
1969-12-31 17:33

 Added into my code, will be eventually merged with Sudhir.
(0004440)
gstecher (administrator)
2020-04-07 10:10

 website has frozen a couple of times in the last month. Seems that problem is at least temporarily resolved by rebooting Apache

- Issue History
Date Modified Username Field Change
1969-12-31 17:33 Nikita Vikhrev Note Added: 0001628
1969-12-31 17:33 agasky Note Added: 0001632
1969-12-31 17:33 agasky Status new => resolved
1969-12-31 17:33 agasky Resolution open => fixed
1969-12-31 17:33 agasky Assigned To => agasky
2020-03-24 15:52 guest New Issue
2020-04-07 10:10 gstecher Note Added: 0004440
2020-04-07 10:10 gstecher Status new => resolved
2020-04-07 10:10 gstecher Resolution open => unable to reproduce
2020-04-07 10:10 gstecher Assigned To => gstecher

Copyright © 2000 - 2024 MantisBT Team
Powered by Mantis Bugtracker