HTTPGetFile.URL := ('strona/strona/takiplik.exe');
HTTPGetFile.FileName := ('Taki plik'.exe');
HTTPGetFile.GetFile;
Jak przedstawic proces sciagania na progressbar lub innym.
procedure TForm2.ReadDate;
var
fsKart : TFileStream;
I : Integer;
ListItem : TListItem;
begin
if not FileExists('Dane.txt') then Exit;
fsKart := TFileStream.Create('Dane.txt', fmOpenRead);
for I := 0 to fsKart.Size div SizeOf(TDataRec) -1 do
begin
ListItem := ListView1.Items.Add;
fsKart.Seek(i, SizeOf(TDataReC));
{ fsKart.Read(Data, SizeOf(TDataRec)); }
ListItem.Caption := Data.Stan;
ListItem.SubItems.Add(Data.Imie);
ListItem.SubItems.Add(Data.Nazwisko);
ListItem.SubItems.Add(Data.Miasto);
ListItem.SubItems.Add(DateToStr(Data.Date));
ListItem.SubItems.Add(Data.Wiek);
end;
fsKart.Free;
end;
procedure WriteDate;
var
fsKart : TFileStream;
i : Integer;
begin
fsKart := TFileStream.Create('Dane.txt', fmCreate);
for I := 0 to ListView1.Items.Count -1 do
begin
Data.Stan:= ListView1.Items[i].Caption;
Data.Imie := ListView1.Items.Item[i].SubItems[0];
Data.Nazwisko := ListView1.Items.Item[i].SubItems[1];
Data.Miasto := ListView1.Items.Item[i].SubItems[2];
Data.Date := StrToDateTime(ListView1.Items.Item[i].SubItems[3]);
Data.Wiek := ListView1.Items.Item[i].SubItems[4];
fsKart.Write(Data, SizeOf(TDataRec));
end;
fsKart.Free;
end;
Co jest w tym złego.
W ListView1 są kolumny
0 - Imei
1 - Nazwisko
2 - Miasto
3 - Data
4 - Wiek
<font size="12">//Chcialbym ci poradzic abys ni episal wielu postow obok siebie tylko zawarl swoje problemy w jednym poscie
poza tym chcialbym zaznaczyc obecnosc tagow i sluzacych do ladnego formatowania kodu </span>