if (OpenDialog1->Execute()&#... { file = fopen (OpenDialog1->FileName.c_str(... "rb"); }
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,.....
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 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]...
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 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...
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)...
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);...
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...
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 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...
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. 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 :=...
Witam męczę się z tym od jakiegoś czasu i ale jakoś mi nie wychodzi A więc chcę otworzyć plik bin (bit po bicie) i zamienić na Int napisałem coś takiego //--------------------------------------... int BinToInt(String Value) { int ValueSize, Result; Result = 0; ValueSize = Value.Length(); for(int...
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...
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ł...
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....
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;...
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" //--------------------------------------...
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 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. 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...
[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...
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);...
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);...
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...
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog.Execute then begin MediaPlayer.FileName :=OpenDialog.FileName; Memo1.Text := ExtractFileName(OpenDialog.FileName) ; //napis na liscie end; end;
trzeba by było zrobić tak: procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog.Execute then MediaPlayer.FileName :=OpenDialog.FileName; ListBox.Items.Add (OpenDialog.FileName); end; ale to spowoduje oczywiście że w listboxie będą widoczne nie tylko nazwy plików ale również ich ścieżki i wtedy będzie wszystko działało poprawnie. Natomiast...
Witam. podczas tworzenia dynamicznie obrazków korzystam z OpenDialog'a do wskazania obrazka ładowanego do imaga. Niestety po kilku (losowo) takich operacjach program się "wykrzacza" w momencie wywołania funkcji OpenDialog.execute... gdzie robię błąd ? Nowy obrazek jest tworzony w momencie wciśnięnięcia klawisza "n" w procedurze FormKeyDown: if OpenDialog.Execute...
Nie ma czegoś takiego jak wczytanie pliku i pojawienie się pliku na liście. Do komponentu TListBox możesz wstawić tylko i wyłącznie tekst. Może on być nazwą pliku wraz ze ścieżką. I tylko tyle możesz zrobić. Zaznaczenie zwraca Ci co najwyżej zaznaczony element, a w konsekwencji możesz mieć jego zawartość (tekst). Jeśli tekstem jest nazwa pliku, to możesz...
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...
No to co za różnica, czy dodajesz przez kontrolkę OpenDialog czy zamiast OpenDialog->FileName użyjesz wartości wczytanej z pliku?
Jezek programowania? wrozki tu zagladaja? w delphi: memo.lines.loadfromfile(opendialog.f...
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); }...
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,'open','C:\P... Files\Gadu-Gadu\gg.exe','','',sw_Normal&... end; zmień na : procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,'open',sciezka1,... end; Oraz tutaj : if Opendialog.Execute then begin...
Nie da się tak: If Lenght(Label1.Caption) > 65 Then... Pisze mi taki błąd: Undeclared identifier: 'lenght' I jeszcze jeden problem: Jak otwieram jakiś plik z OpenDialog to w OpenDialog.FileName jest zawarta cała ścieżka wraz z nazwą pliku. Jak zrobić, żeby z OpenDialog można było odczytać samą nazwę pliku z rozszerzeniem (np. plik.txt , albo katalog\plik.txt...
oj nie nic poza tym , dopiero co zaczynam także nic więcej nie dotykam :) . Czy problemem może być to że używam jednego open.dialog do dwóch różnych operacji. To jest jeden przycisk tylko otwiera plik do odczytu-reset a drugi do edycji- append. Oba wykorzystuja własciwośc filename jednego komponentu -OpenDialog.Muszą byc dwa osobne?
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...
witam mam pewien problem, posiadam kod [syntax=pascal]const cod4 = 'iw3mp.exe'; Def = '<brak>'; var S: String; begin Ini := TIniFile.Create(ExtractFilePath(ParamStr... + 'ecthook.ini'); S := Ini.ReadString('Call of Duty 4 : ', cod4, Def); if (S = Def) Then Exists := False Else Exists := True; if (Exists) Then ShellExecute(Handle, 'open', PChar(Ini.ReadString('Call...
Witam. piszę sobie prosty equalizer multimedialny i chciałbym zapytać w jaki sposób mogę zapisać położenia sliderów do pliku. Jest na to jakiś w miarę prosty sposób? Chciałbym do tego celu użyć komponentów SaveDialog i OpenDialog. Próbowałem z użyciem dyrektywy fstream, ale plik wynikowy zwraca same zera, a slidery po zapisaniu do pliku, lecą w dół,...
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....
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...
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...
Dobra opowiem co próbuję zrobić. Znalazłem poradnik, jak zrobić aplikację do podpisywania cyfrowego plików certyfikatami. Program zakładał, że dane wpisywało się w jednym RichTextBoxie a w drugim generowany został ciąg znaków podpisu. Dodałem przyciski, zmieniłem RichTextBoxy na Textboxy dlatego, żeby wczytywać pliki i zeby do pliku zapisywać wygenerowaną...
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
vestel zasilacz 17ips12 testy akumulatorów kondensator mniejszy zasilacz
radio samsung przestrojenie schemat kostki radia
Rozszyfrowanie daty produkcji z kodu 43049N4135 Citroën C3 HDi błąd P1113 – niskie ciśnienie common-rail, regulator DRV, czujnik ciśnienia
