assign(p,savedialog1.Filename); Proponuję zamienić na: assignfile(p,opendialog1.Filename);
Dodawanie plików do listy, tu po kliknięciu klawisza - wypada otworzyć jakieś okno dialogowe "otwórz" i sprawdzić, czy user cokolwiek wybrał. [syntax=pascal]procedure TForm1.Button1Click(Sender: TObject); begin if (OpenDialog1.Execute) and (OpenDialog1.FileName <> '') then begin ListBox1.Items.Append(OpenDialog1.FileNa... end; end; [/syntax]...
Witam, Wstaw na formę komponenty OpenDialog i SaveDialog. We właściwościach ustaw DefaultExt = txt i Filter =TextFile (*.txt)|*.txt. W procedurze zapisu zmień początek na: if SaveDialog1.Execute then AssignFile(f,SaveDialog1.FileName) else Exit; a DaneKlein.First; przenieś za Rewrite(f); a w procedurze wczytywania: if OpenDialog1.Execute then AssignFile(f,OpenDialog1.FileName)...
obraz *.bmp (w builderze taki tylko jest dozwolony) możesz także otwierać jpg-i używając biblioteki - TImage i TOpenDialog mogła by wyglądać tak: [syntax=c] TJPEGImage *Earth = new TJPEGImage(); if(OpenDialog1->Execute()) //tutaj w filtrze otwierania - ustawione pliki .jpg Earth->LoadFromFile(OpenDialog1->F... Image1->Picture->Assign(Earth);...
Widzę, że masz przyzwyczajenie do ANSI C (zmienne na początku bloku). W C++ - jak bodaj sam Stroustrup mówi - zmienne deklarujemy dopiero kiedy są nam potrzebne. void __fastcall TForm1::Button1Click(TObject *Sender) { if (OpenDialog1->Execute()... { try { int iFileHandle = FileOpen(OpenDialog1->FileName,.....
if (OpenDialog1->Execute()... { file = fopen (OpenDialog1->FileName.c_str(... "rb"); }
Witam Czy mógłby ktoś w skrócie napisac jak działają te instrukcje [syntax=delphi]if OpenDialog1.Execute then OpenDialog1.FileName; plik := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); if SaveDialog1.Execute then SaveDialog1.FileName; plik := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareCompat); [/syntax]...
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Lista.Items.LoadFromFile(OpenDialog1... end; nie wiem czemu Ci nie działa, ale spróbuj zamienić to na procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Execute; end; procedure TForm1.OpenDialog1CanClose(Sender...
Witam, ...CreateFile(PChar(OpenDialog1.FileName... Pozdrawiam
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1...
ok działa dziękuję Child->Caption = ExtractFileName(OpenDialog1->File...
Zrobilem Ci na StringGridzie, szybciej bedzie niz na Editach. Po kolei: zadeklaruj sobie 2 zmienne globalne: AnsiString para; int poz=10; pierwsza do przechowywania jednej z 17 par z pojedynczego wiersza, potem pozycja w AnsiStringu naszej pary. (na samej górze przed funkcjami) To pewnie juz wiesz ale zebys nie przeoczył to napisze po kolei: Na formatce...
do tego posłużą ci komponenty OpenDialog oraz SaveDialog var NazwaPliku: String; begin if OpenDialog1.Execute then begin NazwaPliku := OpenDialog1.FileName; end; end; na wyjściu z tej procedury powyżej masz nazwę pliku który chcesz otworzyć, oczywiście uprzednio kładziesz na formę komponent OpenDialog jak mówiłem. dokładnie tak samo masz z zapisem tylko...
Oto funkcja załadowania zawartości pliku do tablicy InputData. Dołącz ją do swojego programu. Jeśli chcesz dodatkowo kontrolować ewentualne błędy (plik za krótki, brak pliku, brak dostępu do pliku itp.) to daj znać, dopiszę sprawdzanie wyjątków. int handle; if (OpenDialog1->Execute()... { handle = FileOpen(OpenDialog1->FileName,.....
Dodano po 16 przepraszam, ta procedura ostania (procedure TForm2.Button1Click(Sender: TObject);) , to mój bład, niepotrzebnie ja wkeliłem, to ostatnie mojej wypociny,niedokończone, własnie tu szukałem błedu Dodano po 56 problem jest opisany przez Cyfowego Barona w temacie Tekstowa baza danych, ale rozwiazanie jest w c++, niestety dla mnie przekonwertowanie...
Witam mam pytanie borland c++ chcę w StringGrid otworzyć plik hex, ale coś mi nie wychodzi. Może ktoś mi podpowie, co mam zmienić w tym kodzie. void __fastcall TForm1::FileOpenClick(TObject *Sender) { if(OpenDialog1->Execute()) { TStringList *Lista = new TStringList; Lista->LoadFromFile(OpenDialog1->F... for(int i = 1; i < StringGrid1->RowCount;...
w skrócie: 0) wczytujesz plik a) format .raw: FILE *in; in = fopen(plik.c_str(),"r+b"); rozmpliku=filesize(in); rewind(in); fread(tablica,1,rozmpliku,in); fclose(in); b) .bmp OpenDialog1 -> Filter = "Bmp (*.bmp)|*.bmp; |Jpg (*.jpg) |*.jpg; |Raw (*.raw)|*.raw"; if(OpenDialog1 -> Execute()) Image1 -> Picture -> LoadFromFile(OpenDialog1 -> FileName); c)...
Po poszukiwaniach natrafiłem w necie na taką oto konstrukcję : Stream := TMemoryStream.Create; Wiadomosc.SaveToStream(Stream); ProgressBar1.Max := Stream.Size; Stream.Free; i cos takiego działa - według jednego z wypowidających się jest to najlepszy sposób link :[url=http://www.delphigroups.info/2/3/2... pojawił mi sie kolejny...
Mecze sie z zapisywaniem i odczytywaniem danych ze stringgrid . Szukalem i znalazlem idealne rozwiazanie ale pod delphi , nie wiem jak to ma wygladac dla c++. w delphi: Zapis: var f:textfile; x,y:integer; begin if SaveDialog1.Execute then begin assignfile (f,savedialog1.filename); rewrite (f); writeln (f,stringgrid1.colcount); writeln (f,stringgrid1.rowcount);...
Witam i mam nadzieje ze pomozecie. Mam problem. Chce zrobic program w Delphi w ktorym bedzie tylko 1 Przycisk i nic pozatym, a na Formie oprocz niego Open I Save dialog. Chcialbym zrobic program w ktorym po nacisnieciu przycisku Otwiera sie okienko OpenDialogu i po wyborze pliku .jpg lub .bmp program bierze nasz plik i przenosi go (zapisuje) do glownego...
if OpenDialog1.Execute then begin Filenames:=OpenDialog1.FileName; if not(FileExists(Filenames)... then Begin MessageBox(0,'Błąd odczytu pliku','UWAGA !!!',0); End else begin Zamiast tego zastosuj poprostu opcje "ofFileMustExist" w komponencie OpenDialog1. A co do braku pamięci to tak samo się dzieje dla małych plików? Kolejna...
Witam. Tworzę w delphi kilka obiektów Image dynamicznie: ... //globalne zmienne: image: array[0..63] of TImage nri: integer ... // procedura tworząca obiekty TImage: image[nri]:=Timage.Create... Image[nri].Parent := Form1; Image[nri].Left := 5+nri*10; Image[nri].Top :=...
Zastosowałem się do Twojej sugestii no i teraz zaczęło się wyświetlać z tym tylko, że wyświetla się jedna kolumna z pięcioma wartościami i to wszystko. A jak zrobić żeby wyświetliła się cała zawartość pliku. Do podglądu dołączam kod i wygląd oka po uruchomieniu. void __fastcall TForm1::Button1Click(TObject *Sender) { if(OpenDialog1->Execute()...
Zrezygnowałem z Twojego kodu, za trudny jest dla mnie, teraz dane do stringgrida wprowadzam w ten sposób: procedure TForm1.Button2Click(Sender: TObject); var p: system.text; liczba, liczbaa: real; i: integer; begin if OpenDialog1.Execute then begin System.Assign(p, OpenDialog1.FileName); Reset(p); i:=0; while...
Kawałek kodu jednego z moich programów. Mam nadzieję, że pomoże: if OpenDialog1.Execute then try begin wiersz := 0; AssignFile(Plik, OpenDialog1.FileName); Reset(Plik); FileMode := 0; //Set file access to read only while not Eof(Plik) do begin wiersz := wiersz + 1; if wiersz > StringGrid1.RowCount -1 then begin...
Mam problem z usuwaniem rekordu z tabeli. Gdy chcę usunąć dany element to pokazuje mi taki błąd: Project idnumma.exe raised exception class EAccessViolation with message 'Access violation at address 0045087F in module 'idnumma.exe'. Read of address 00958F0F'. Process stopped. Use Step or Run to continue. A to procedura do usuwania var F : TAddressFile;...
Mam PDFy z tabelkami zawierającymi pewne dane (niestety nie mogę ich pokazać, ponieważ są poufne). W pewnym miejscu pliku jest taki znacznik: <</Filter/FlateDecode/Length 2806>>stream [jakieś krzaczki i znaczki] endstream endobj Wydaje mi się, że to jest ta właśnie tabelka. Sądząc po znacznikach to jest zakodowana metodą FlateDecode....
Witam, Robię aplikację okienkową w Builder C++ do komunikacji przez UART tzn. wysyłam znak z PC i odbieram dane z uC. Na początku próbuję uruchomić gotowe programy z książki "RS232 Programowanie praktyczne" Daniluka i za każdym razem wyskakuje mi przy otwieraniu COM6 następujący komunikat "Niewłaściwa nazwa portu lub port jest aktywny" Czy ktoś spotkał...
Cześć! Jestem początkującym, program mam 1 dzień, Mam dwa pytanie więc tak: -Jak dodać playlistę do odtwarzacz mp3 w Delphi -Czy jest możliwość przesuwanie image(obrazu). 1.Pierwsze pytanie raczej nie trzeba tłumaczyć ;] 2. Natomiast drugie, chodzi mi o takie coś jak jest tu : unit sada1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
Wybieram plik i ścieżkę dostępu poprzez FileOpenDialog. To działa, wyświetlam ją w Label, ale tego stringa nie wiem jak przekazać do ShellExecute aby uruchomić wybrany program (lub otworzyc skojarzony plik). Gdy podam w ShellExecute ścieżkę i plik jawnie to OK, lecz jak wstawię w to miejsce zmienną to nic, chociaż w zmiennej jest cała ścieżka wraz z...
Witam. Również napotkałem problem przy próbie odczytania pliku, choć nieco inny. Mianowicie: Robię sobie pomiar sygnału zmiennego podłączonego do Line In dźwiękówki. Wszystko śmiga. Na koniec dostaję 2 tablice (dwa kanały) danych. Zapisuję je ładnie do pliku txt, z dodatkowymi informacjami o ilości próbek i częstotliwości próbkowania. Format pliku wygląda...
Witam! Mam mały problem z Builderze w wprowadzaniem zmiennej FILE do klasy. Program główny: FILE *file; file = fopen(OpenDialog1->FileName.c_str(),"rb"... //otwiera plik wave* obiekt; //przygotowanie miejsca na obiekt obiekt = new wave; //tworzenie obiektu obiekt->Open(*file); //metoda open Klasa: class wave { public: int riff_chunkSize; void...
[syntax=delphi] var plik : file of byte; bajt : byte; typ : byte; a: integer ; begin if OpenDialog1.Execute then begin ProgressBar1.Position :=0; AssignFile(plik,OpenDialog1.FileName); try Reset(plik); Read(plik,bajt); //synchronizacja Read(plik,bajt); /////AAABBCCD StringGrid1.Cells[1,0]:='Parametry'; StringGrid1.Cells[0,0]:='Właściwosci pliku'; StringGrid1.Cells[0,1]:='Mpeg...
Tzn co? nic więcej mi się nie pojawia. W builderze to wygląda tak: NMFTP1->Delete("biezaca.txt&... AnsiString LocalFile,RemoteFile; int FileHandle,FSize; RemoteFile="biezaca.txt"; LocalFile=OpenDialog1->FileName.c_str... FileHandle=FileOpen(LocalFile,fmOpen... FSize=FileSeek(FileHandle,0,2);....
Witam Korzystam z książki Pana Daniluka i wykorzystałem jego prgram: #include <vcl.h> #pragma hdrstop #include "Unit_06_05.h" #pragma package(smart_init) #pragma resource "*.dfm" #define cbOutQueue 1024 //rozmiar bufora danych wyjściowych #define cbInQueue 1024 //rozmiar bufora danych wejściowych TForm1 *Form1; AnsiString...
Witam was, To znów ja Karek. Mam taki problem znalazłem Listę kontaktów. http://4programmers.net/Delphi/Gotowce/D... i nie wiem jak ją przerobić kod pod mój program ,ponieważ mój program bot, dzieli się na bota i komunikator, chciałbym tak aby Mam Memo2 i Send z procedurą procedure TForm1.Button8Click(Sender: TObject);...
Stary ja juz próbowałem na 5 rożnych sposobów i nic nie działa... ale oczywiście wkleję kod, taki może okrojony żeby było widać w czym jest problem: [syntax=cpp] #include <iostream.h> #include <fstream.h> #include <string.h> #include <stdio.h> #include <vcl.h> #pragma hdrstop #include "Unit2.h" //--------------------------------------...
Witam mam taki problem potrzebuje przerobić kod aby mi sortował w tabeli TstringGrid nazwy alfabetycznie sortowanie numeryczne działa ok ale niestety nie wiem jak zrobić aby działało alfabetycznie. Próbowałem wklepać tego gotowca: http://4programmers.net/Delphi/Gotowce/A... Jednak wywala mi błąd praktycznie od początku...
Sprawdź to: procedure TForm1.btnStartClick(Sender: TObject); var Plik: TextFile; Bufor: string; Ciag: string; PozS,i,j: integer; PozE: integer; Kolumna: integer; Wiersz: integer; Jest: boolean; begin with OpenDialog1,StringGrid2 do if Execute then begin AssignFile(Plik,FileName); Reset(Plik);...
No to co za różnica, czy dodajesz przez kontrolkę OpenDialog czy zamiast OpenDialog->FileName użyjesz wartości wczytanej z pliku?
Witam, wczytuje plik, zapisuję go jako inny i niby wszystko w porządku tylko jak zrobić żeby plik zamkną się po wykonaniu wszystkich operacji? { String^ fileName = OpenDialog->FileName ; StreamReader^ din = File::OpenText(fileName)... String^ str; int count = 0; String^ fileName2 = "aab.txt"; StreamWriter^ sw = gcnew...
Witam Generalnie robi sie to tak: if(SaveDialog.Execute()==tru... { // jezeli uzytkownik wybral plik to robisz teraz obsluge zapisu, dla pliku tekstowego moze to wygladac np tak: FILE *file=fopen(SaveDialog->FileName.... fwrite(file,"Tekst"); fclose(file); }...
kiedy zamienię linijkę: Path = ExtractFileDir(Opx->FileName); na Path ="C:\\katalog"; wtedy działa tak samo. po po dodaniu Path = Path +"\\x" nie daiała już w podfolderze. W podfolderze X działa tylko wtedy jeśli wypiorę go z OpenDialog (Opx)
Jakoś musisz wybrać ten plik, do którego chcesz odczytywać/zapisywać, więc bez przynajmniej jednokrotnego wywołania OpenDialog/SaveDialog się nie obejdzie. Ale jak już masz wskazany plik, to zapisz jego nazwę (lokację) do jakiejś zmiennej, a następnie sprawdzaj czy plik istnieje. Jeżeli istnieje, to nie wywołuj kolejnego SaveDialog, tylko zapisuj bezpośrednio...
Już doszedłem do tego z jakiego programu najlepiej skorzystać jak się wcześniej nie miało styczności z programowaniem okienkowym no i to jest Borland. No i wiem mniej więcej jak tam sie robi, mam już menu tylko teraz mam różne problemy np. takie: 1.) jak poprzerabiać na język Borlanda Buildera z języka C ten fragment związany z odczytem tablicy? Bo...
Gdy otwieram pierwszy raz otwieram plik program się wykonuje bez problemu, jest to co ma być jego cała realizacja na obiekcie Memo1. Gdy jednak drugi raz daję otwórzy to wywala błąd i kody z języka niskiego poziomu się pokazują a konkretnie to: Project SDIAPP.exe raised exception class EAccesVIOLATION with message 'Acces violation at adress 0042AF64....
No dobrze, bardzo dziękuję za garść kolejnych cennych wskazówek. Ale jednak dla mnie pisanie aplikacji konsolowych na początek to totalna porażka. Ja nigdy nie posługuję się aplikacjami konsolowymi, więc nawet do czego mógłbym je zastosować. A wymyślanie na siłę jakichś przykładów z kosmosu nic mi nie da. Wolę od razu na konkretnych przykładach tego...
Witam Mam taki problem. Dostaliśmy na zadanie domowe dokończyć program w c++ telefon. Zasada działania podobna jak w pisaniu sms-a. po kliknięciu np. 5 pojawia się po kolei j,k,l,5 i my mamy coś takiego zrobić. Próbowałem to rozgryźć lecz pojawiają mi się dwa znaki naraz. Proszę o jakieś sugestie. Przesyłam kod: [syntax=cpp]void __fastcall TMDIChild::FormClose(TObject...
saveas filename invalid filename
miernik uszkodzony pomiar rezystancji programator zmywarki hotpoint ariston uruchomić kompresor lodówka
wykrywacz metali schemat kosiarki spalinowe
Cofanie się płomienia w piecu na ekogroszek - przyczyny Przegrzewanie spawarki Dedra DESI 201 - przyczyny i rozwiązania