Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Повідомлення користувача Vi
WriteFile() ==0 GetLastError()==5
ERROR_ACCESS_DENIED 5 (0x5)
Access is denied.
А де ти цей код знайшов i яке в тебе завдання?
P.S. Доречi сюди варто зазирнути: https://msdn.microsoft.com/uk-ua/librar … s.85).aspx 
Яку помилку видав код?
Цілком ймовірно, що косяк від VS 2017
А як ты зрозумiв що там ver.2017? 
P.S. А-а-а.. Все. Побачiв... Затупив 
Все запускається та відпарцьовує як треба. Хіба що я б вписав ще дещо:
...
cout << "По Фарангейту" << Farenge << endl << "По Цельсiя" << chels << endl;
system("pause");
return 0;
}А так більш схоже що немає доступу до того каталогу, де проєкт знаходиться.
Я бі на місці топікстартера проєкт на D: перекинув.
А сама програма не має якихось фатальних помилок.
пауза 120 сек.
Ні. Залів може працювати з перервами. Наприклад канал просідає. Я постийно раніше стикався с саме просіданням інтернету.
дивитися, чи вже від’єднався ftpuser
Це вже годнота 
Але... якщо ти будешь перевіряти також по таймеру під'єднання\від'єднання то також можешь ухопити колючку коли робот зал'є файл малого розміру та відпрацює за час самого таймера. Якщо ті повісищь якійсь опрацювач події тоді гайда, інакще можливе так:
або робот
Неможна:
ні, робот зовсім чужий
перевіряти, чи файл зайнятий?
Як?
крон кожні 5 хв буде запускати скрип на пітоні
Я не виникне така подія що кронушка запустить скрипт тоді, коли файл ще не догрузиться?
Колізії не лякають?
Не має бажань написати свого демона FTP? У мене схоже завдання було, я так й зробив.
Достав Лазарус та вітяг руки із карманів )
Доброго дня!
не можу вирішити таку помилку.
і не можу вивести кожного другого елемента файлу
Якщо не здригатимешь від LINQ то
Console.Write("{0}",String.Join("\n",
System.IO.File.ReadAllLines(@"d:\Філея.txt")
.Select((v, i) => new { i, v })
.Where(s2 => s2.i % 2 == 0)
.Select(q=>q.v)
));
Console.ReadKey();1. Дитячо-підліткової, патріотичної соціальної мережі,
Хто буде займатись контентом та актуалізацією?
Чи є джерело інформаціі?
2. Дорослій патріотичної соціальна мережа.
Є якісь конкретні ідеї окрім бажання?
Чи є нотатки щодо того на базі чого планується проект? Тобто банально: На чому писати та під що?
Я б зробив так:
procedure TMain_Fr.LanguagesClick(Sender: TObject);
var appath,filelang:string;
begin
appath:=ExtractFilePath(ParamStr(0));
if (Sender is TMenuItem) then
begin
(Sender as TMenuItem).Checked:=True;
filelang:=appath+'Lang\'+LangList[Languages_MIt.IndexOf(Sender as TMenuItem)].LangFileName;
if not FileExists(filelang) then begin
ShowMessage(filelang+' нема.'); exit;
end;
LangIniFile:=TIniFile.Create(filelang);
File_MIt.Caption:=LangIniFile.ReadString('Main Menu','File','File');
NewDatabase_MIt.Caption:=LangIniFile.ReadString('Main Menu','New Database','New Database');
OpenDatabase_MIt.Caption:=LangIniFile.ReadString('Main Menu','Open Database','Open Database');
SaveAsDatabase_MIt.Caption:=LangIniFile.ReadString('Main Menu','Save As Database','Save As Database');
Exit_MIt.Caption:=LangIniFile.ReadString('Main Menu','Exit','Exit');
...
RiderBase_Fr.Is_ChBx.Caption:=LangIniFile.ReadString('Rider Form','Is','Is');
RiderBase_Fr.Fruiting_ChBx.Caption:=LangIniFile.ReadString('Rider Form','Fruiting','Fruiting');
RiderBase_Fr.Desirable_ChBx.Caption:=LangIniFile.ReadString('Rider Form PanelForm','Desirable','Desirable');
RiderBase_Fr.Cancel_Bt.Caption:=LangIniFile.ReadString('Rider Form','Cancel','Cancel');
RiderBase_Fr.Apply_Bt.Caption:=LangIniFile.ReadString('Rider Form','Apply','Apply');
...
SettIniFile.WriteInteger('options','Language',(Sender as TMenuItem).MenuIndex);
LangIniFile.Free;
end;
end; ... x[100]={0};
...
for (i = 0; i<n; i++) {
for (j = 0; j<n; j++) {
cout << "a[" << i << "," << j << "]=";
cin >> a[i][j]; //введення матриці;
x[i]+=a[i][j];
}
}
int m=0;
for(i=1;i<n;i++) m=(x[i]<x[m])?i:m;
cout<<"Найменьше у"<<m;
...Хто знає комп'ютерну літературу художнього характеру?
Росiйська влаштує?
https://ru.wikipedia.org/wiki/%D0%A5%D0 … 0%B8%D0%B8
https://www.exler.ru/novels/wife.htm
Герберт В. Франке «Последний программист»
Якщо менi не зазь я пишу вiдповiдь.
Щодо ледацюг... Це було завжди. Я до цього звик.
А в Edit чомусь не виходить
Навiщо в Edit писати циклом лише одне останнє значення? Може тоді так треба?
procedure TForm1.BitBtn2Click(Sender: TObject);
var
I : integer;
begin
Edit1.Clear;
for I := CheckListBox1.Items.Count -1 downto 0 do
if CheckListBox1.Checked[i] then begin
Edit1.Text:=CheckListBox1.Items[i];
Break;
end;
end;Чи що треба?
Якось так:
program Project1;
var Year:Integer;
begin
Write('Рiк будь ласка ');Readln(Year);
if ((Year mod 4)=0) and ((Year mod 100)<>0) or ((Year mod 400)=0)
then Write('Вiсокосний')
else Write('Зовсiм нi');
Readln;
end. Ну то поставь там операцiю вводу значення
Vi написав:А що треба зробити взагалi?
Розкласти вектор на N частин
Тобто щось типа:
// ConsoleApplication1.cpp: определяет точку входа для консольного приложения.
//
#include "stdafx.h"
#include <vector>
#include <algorithm>
#include <iostream>
using namespace std;
int main()
{
vector<int> v = { 1,2,3,4,5,6,7,8,9,10 };
vector<vector<int>> va;
int n = 2,i=0,l=v.size()/n;
va.resize(n);
for_each(v.begin(), v.end(), [&va,&i,l](int j) {
va.at(i/l).push_back(j);
i++;
});
for_each(va.begin(), va.end(), [](vector<int> j) {
for_each(j.begin(), j.end(), [](int j) {
cout << j << '\t';
});
cout << endl;
});
cin.get();
return 0;
}Так?
Нажаль я вас не розумію.
А що треба зробити взагалi?